$853 



Real Estate 
ding Gave 


UJ 
> 
<c <c 
a 

< z 


in 

o 

r-» 

r-. 

OJ 

u 

z 

e: 

LlI 


ir 
o r> 
& 
x. a 


<c 

CO 
I 

Z 

a o 


E 

U 


z 

UJ o 
Cd CO 

<c n 

-3- 


tn 

z 


D02 











































TANDY ->000 


for your 
TflNDV 1000 




ji-.rA’c’.-:. 

^sn 


M€GfllsVT€ 


21 


SCSI 




ionol. Inc. 


6566 University Boulevard, Winter Park, Florida 32792 305-677-8333 telex 332559 MDII ORIUD 


1 V€RR WRRRRNTV, 30 DRV MON€V BACK GURRRNT€€ 


IMAGINC!!! MDI S 21 M€GRBVT€ HARD DISH CARD 

simply plugs into your system ond is ready to run!!! 
The hard disk card also contains a... 

"FR€€ SCSI PORT": 

fl SCSI port which allows you to tie (daisy chain) 
up to seven external (peripheral) devices to your 
computer. 

INCLUD6D rnCt 
Direct/Assist $4995 

R/Assist $ 49 95 

Light Speed $ 79 95 

SCSI Board $ 190 00 


ORD€R LIN6 800 - 228-0891 
305 - 677-8333 


Tandy 1000 
Multifunction Board 
$255 
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Tandy 


From Computer Plus to YOU... 

PLUS after PLUS after PLUS 


DMP-130 $269 


Color Computer II 
w/64K Ext. Basic $145 


BIG SAVINGS ON A FULL COMPLEMENT OF RADIO SHACK COMPUTER PRODUCTS 


COMPUTERS 

Tandy 1000 1 Drive 128K 685.00 

Tandy 1000 HD 10 Meg. 256K 1539.00 

Tandy 1200 10 Meg. 256K 1599.00 

Tandy 3000 1 Drive 512K 1969.00 

Tandy 3000 HD 20 Meg. 512K 2699.00 

Model IVD 64K with Deskmate 889.00 

PRINTERS 

Radio Shack DMP-130 269.00 

Radio Shack DMP-430 559.00 

Radio Shack DWP-220 Daisy Whee 359.00 
Radio Shack TRP-100 Portable 229.00 

Silver Reed EXP-550P Daisy Wheel229.00 
Star SG-10 245.00 

Star SG-15 410.00 

Star SD-10 365.00 

Panasonic P-1091 259.00 

Panasonic P-1092 339.00 

Toshiba 1340 439.00 

Okidata 192 375.00 

Epson LX-80 275.00 

Epson FX-85 419.00 

Epson HS-80 Portable Ink Jet 339.00 


Tandy 1000/1200 ACCESSORIES 

Tandy 1000 Disk Drive Kit 135.00 

Tandy 1000 10 Meg. Hard Drive 579.00 
Hard Drive Controller Board 249.00 
256K Ram Board (inc. 128K 8r DMA) 179.00 
512K Ram Board (includes 128K) 119.00 
256K Memory Plus Expansion Brd. 155.00 
PBJ Multi-Function Board (128K) 259.00 
PBJ Multi-Function Board (256K) 279.00 
PBJ Multi-Function Board (512K) 299.00 
128K Ram Upgrade Kit (NEC) 78.00 
256K Ram Upgrade (for PBJ Board)69.00 
300 Baud Modem Board 129.00 

1200 Baud Modem Board 179.00 

RS-232 Serial Board 69.00 

Digi-Mouse/Clock Board 89.00 

Tandy 1000/1200 MONITORS 
Tandy VM-2 Green Monitor 129.00 
Tandy CM-2 RGB Color Monitor 379.00 
Tandy CM-4 RGB Color Monitor 249.00 
Tandy VM-3 TTL Green Monitor 179.00 
Tandy 1200 Text Monitor Adapt. 219.00 
Tandy 1200 Color/Graphics Adapt 210.00 


CALL TOLL FREE 
1 - 800 - 343-8124 

• LOWEST POSSIBLE PRICES 


MODEMS 

Radio Shack DCM-3 Modem 52.00 

Radio Shack DCM-5 Modem 99.00 

Radio Shack DC Modem 2212 315.00 

Hayes Smartmodem II 300 Baud 169.00 
Hayes Smartmodem 1200 Baud 429.00 
Hayes Smartmodem 1200B 415.00 

FOR EVERYONE 

Network Four Outlet Surge Prot. 69.95 

CCR-81 Cassette Recorder 52.00 

CCR-82 Cassette Recorder 43.00 

C-20 Digital Cassette Tapes (lOpk) 9.95 
Verbatim SSDD Plastic Box (lOpk) 24.95 
Verbatim DDDD Plastic Box (lOpk) 29.95 
Precision SSDD Diskettes (lOpk) 15.95 

Precision DDDD Diskettes (lOpk) 17.95 

NEC 64K Ram Chips (set of 8) 39.00 

NEC 256K Ram Chips (set of 8) 69.00 

Flip N File Disk 50 15.00 

Fanfold CleanEdge Paper (2600) 35.00 

Radio Shack software 10% off. 

Send for complete listing of 
brand name software and hardware. 


com 


Tandy 3000 $1969 
Tandy 3000 HD $2699 


DMP-105 $160 


Tandy 200 24K $649 
Model 600 32K $1269 
Model 100 24K $425 


1000 


$685 


Tandy 


HD 


$1539 


Tandy 


1200 


HD 


$1599 


• BEST POSSIBLE WARRANTY 

• KNOWLEDGEABLE SALES STAFF 

• TIMELY DELIVERY 

• SHOPPING CONVENIENCE 


P.O. Box 1094 
480 King Street 
Littleton. MA 01460 


SINCE 1973 




VISA 


IN MASSACHUSETTS CALL (617) 486-3193 


TRS-80 is a registered trademark of Tandy Corp. 
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T^ndy computers 
offer everything 
...almost 

Check out the software that completes their systems 

— filePro® 


Tandy MS-DOS Software Comparison Chart 



pfs" 

File/Report 

dBase™ 

II 

filePro 16 

Smallware 

GENERAL 

CHARACTERISTICS: 





Menu driven 

yes 


no 

YES y 

Allows user to create integrated 
business systems 

no 


programmer 

required 

YES fc 

Developed systems and data can be 
moved to multi-user environments 

no 


no 

YES p 

Professional support available 

from the software’s authors 

no 


no 

yes y 

PRICE 

$265 


$595 

$495 

CAPACITIES: 





Fields per record 

100 


32 

999 

Characters per record 

1679 


1000 

4608 

Records per file 

1300 


65535 

16,000,000^ 

Indexes per file 

1 


7 

12 

Number of digits per numeric field 

20 


10 

24 

Number of files usable concurrently 

1 


2 

10 

Files span multiple drives 

no 


no 

- U— 

up to 8 

FEATURES: 




— 

Full-screen facility for creating 
custom screen layouts 

yes 


no 

-< 

m 

(/> 

Full-screen facility for creating 
custom report layouts 

no 


no 

YES y 

Built-in field types 

(error checking) 

no 


3 

12 y> 

User-defined field types 

no 


programmer 

required 

200 

Conditional math 

no 


programmer 

required 

7 % 

</) 

LU 

>- 

User-defined menus 

no 


programmer 

required 

YES L 

Change file layout without 

losing existing data 

possible 


possible 

—■ - -— 

automatic 

Data protection 

no 


programmer 

required 

YES ft 

Password security 

no 


programmer 

required 

YES k‘ 



The Smal Computer Company, Inc. 

230 West 41st Street, Suite 1200, New York, New York 10036 


The new Tandy computers 
can really speed things up. If 
you don’t let obsolete 
software bog you down. 

Try filePro 16, the latest 
generation of data base 
software from the authors of 
Profile®. 

Choose it for its power 
(check our capacities); its 
ease-of-use (check our 
features); and its unique 
ability to grow as your needs 
grow, and even move the 
systems you create to multi¬ 
user computers. 
filePro is available for the 
Tandy 1000, 1200 and 2000 
computers (hard disk 
required). Available directly 
from us or through your 
Radio Shack store’s Express 
Order Software service. 

To order, call 
(800) 847-4740. 

For customer service or 
when dialing in New York 
State, call (212) 398-9290. 
Ask for Smallware sales. 
Visa and MasterCard 
accepted. 

Also available for other computers, 
including IBM PC, IBM PC-XT, and 
NCR Decision Mate. 


^240 
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New BIOS Solves Hard Disk Problems 

Editor: 

I recently decided to upgrade my 
Tandy 1000 with a hard disk as described 
in your magazine (“Upgrade Your Tandy 
1000” February 1986). I first tried to 
order a 20-megabyte unit frfpm several of 
the mail-order houses. To my disappoint¬ 
ment, few said they had a unit for the 
1000 and even fewer said they could 
deliver in a timely fashion. I ended up 
purchasing and returning a unit from one 
of your advertisers. The reason 1 returned 
it was I could not get the system to boot 
from the hard drive, and when writing to 
it from A: or B:, I received FCB errors. 

I called the vendor and received very 
courteous help and all indications 
pointed to correct procedures. They 
didn’t understand why 1 was having 
problems. Disappointed, I finally ended 
up sending it back for a refund. 

1 was determined to find out why I had 
these problems with such a simple proce¬ 
dure. I talked with the Western Digital 
people and the Tandy folks and found 
out my 1000 has the old ROM BIOS 
version 2.11.00 (my machine was one of 
the first ones sold) and that there is a new 
version, 2.11.01, and that the hard drive 
doesn’t have a problem using it. I called 
the vendor back and asked what version 
BIOS they were using and found they 
were using 2.11.01. Thought your readers 
might like to know to check the BIOS 
version number before trying to install a 
hard disk. With the new BIOS, all things 
point to being able to use just about any 
drive on the market provided the con¬ 
troller fits the slot. 

Bill Kennedy 

Grafton, VA 


Canadian Club 


Editor: 

The Edmonton, Alberta, Canada 
Tandy users are pleased to announce the 
formation of a new club called the Tandy 
1000 Plus Users Association. The club 
meets on the second Monday of every 


month at 12207 124 Street, Edmonton, at 
7:00 PM. For more information, please 
phone Dexter B. Dombro at (403) 439- 
5245. The club also maintains its own, 
separate conference section on Satellite 
RBBS, dial (403) 474-5262. The confer¬ 
ence deals exclusively with matters of 
concern to Tandy users. 

The purpose of the club is to give all 
users a forum in which to learn and 
discuss issues that commonly affect 
Tandy users. The association is therefore 
open to all 1000, 1200, 2000 and 3000 
users. The club supports a limited free¬ 
ware library, has a technical advisor and 
sports a lot of enthusiasm. First time 
visitors to the club are admitted free. 

Dexter B. Dombro, President 
Tandy WOO Plus Users Association 
Edmonton, Alberta 


Help for filePro Pros 

Editor: 

I own a Tandy 2000 with two floppy 
disk drives and use it primarily with the 
file Pro 16 database management system. 

The 2000 is a very powerful computer 
and, in my mind, surpasses the IBM PC 
AT. 

I also believe filePro 16 outperforms 
dBase III and RB 5000. 

I am computerizing a dental labora¬ 
tory with very succesful results. How¬ 
ever, I have had to do a lot of trial and 
error” operations. 

Please tell me where I can get some 
help with filePro 16. 

Hartley Grim 
Rockville Centre, NY 

The Small Computer Company, 
Inc., publishes Smalltalk, a news¬ 
letter for users of filePro 16. They 
can be reached by writing 230 West 
41st Street, New York, NY 10036 
or calling (212) 398-9290. 


It Works! 


Editor: 

In regard to a letter in the June Issue 
(“Fontastic Printing”), Tom says, “Bor- 
derlund’s The Printshop does not do the 
trick.” I thought the same when 1 first 
booted up The Printshop — no printer 
recognition. I went to sleep thinking I d 
be returning the package (over 100 miles, 
round trip). I awoke remembering my 
DMP-130 has a mode that emulates 
IBM. I tried The Printshop again after 
setting switches 1-1 and 1-3 to on. Suc¬ 
cess! 

J. Stahl 
Ojo Sarco, NM 
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Discover a Whole New W 
of TV Entertainment! 


User Installable! Over 100 Channels! 
^ Uncut Movies! Specials! Sports! 
Rs. News! Weather! Music Videos! 


Entire 

System 


■ Totally Automatic System With 8V2 -Ft. 

Dish, Receiver and Wireless Remote Control 

■ Comes With All Accessories Needed for 
Complete Do-it-Yourself Installation 

■ Descrambler Ready 


U.L. 

Approved 


Handy Wireless Remote Lets You Change 
Channels, Control Volume and Fine-Tune 


Now you can enjoy it all! 24-hour non-stop entertain¬ 
ment that you simply can’t get from local TV, cable, and 
even video tape! You’ll see the hottest stars, recent un¬ 
cut and uninterrupted movies, the ultimate in sports 
coverage—and the best part is, there are no monthly 
fees to pay. You’ll see exciting family-oriented pro¬ 


grams, plus music videos, FM broadcasts and movies 
with provision for stereo, and 24-hour news coverage 
on both TV and radio. It all adds up to out-of-this-world 
TV viewing at a down-to-earth price. Come in today and 
discover how easy it is to enjoy satellite programming! 
Includes complete installation manual. 


(817) 825-4027 

NOCONA ELECTRONICS • Box 593 • Nocona.TX 76255 


UPS Shipping 









































































LPrint 



Of 

Anniversaries 


I think a third anniversary marks a 
sort of turning point for a magazine. 
And, since this is PCM’s Third 
Anniversary Issue, 1 hope you will bear 
with me while my thoughts meander 
somewhat. 

We’ve been in the computer magazine 
business here at Falsoft for five years 
now. This month marks PCM’s third 
year, but also marks the fifth year for 
our first publication, THE RAINBOW, 
which covers Tandy’s Color Computer. 

It is an auspicious month, for sure. 

Let’s look at anniversaries. Not that 
stuff about paper, crystal, diamond and 
so on, but just what anniversaries mean 
to publications. 

The first year, to my mind, means you 
have weathered the storms of starting 
out and, assuming that the publication 
is a healthy one, means you are prob¬ 
ably going to be around for a while. It 
is a time of real celebration — when you 
quit being a “new kid” on the block and 
become something more. 

The second year is sort of anticlimac- 
tic, as far as I am concerned. You have 
dealt with all the problems engendered 
in the startup and it is time to define 
your image. That’s what we did with 
PCM — getting into MS-DOS as well 
as the portables. Remember, PCM 
started life as a publication that sup¬ 
ported one machine — Tandy’s portable 
Model 100. 

Three years means something else 
again. It is a maturing time, and a major 
sense of accomplishment. During the 
time leading up to this third anniversary 
we have pretty much become the au¬ 
thority for the MS-DOS machines in 
the Tandy stable, while still being a 
major force in the portable area. 

We’ve done this simply because, with 


your support, we’ve been able to grow 
and mature. We’ve added pages. We’ve 
added features. We’ve added top-flight 
writers. In truth, we’ve become the 
source of information on Tandy’s com¬ 
puters with the exception of their TRS- 
DOS, Xenix and Color computers (and 
THE RAINBOW takes care of the CoCo). 

We expect to continue to grow. And 
we hope to continue to generate your 
support. I can’t tell you how many times 
an advertiser has told me that he or she 
is continuing an ad contract because 
“your readers really support you — and 
me.” Thank you. That sort of help, 
telling people you saw their ads here (or 
asking them why they don’t advertise 
here), means we can afford to produce 
a bigger, better PCM for everyone! 

I know I’ve been tooting our own 
horn. But none of it would be possible 
without two groups of people. The first, 
of course, is you — our reader — who 
does so much to make life easier for us. 
Your letters of encouragement are 
welcome, your program submissions 
are our bread and butter, and your 
support of our advertisers is heartening. 

Secondly, it would be impossible to 
mention PCM without giving their due 
to the fine people at Tandy who have 
brought us these excellent machines. 
The Tandy MS-DOS computers are the 
finest on the market, and at the best 
price available. The portables are the 
shining examples in their price category. 
Where would thousands of us be with¬ 
out them? 

So, happy birthday, PCM! We’re 
happy and growing and we look for¬ 
ward to you being with us in the years 
ahead! 

— Lonnie Falk 
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TANDY ««, ^ itrr 


Each and every month, pcm 
offers an assortment of pro¬ 
grams for the home and office — 
utilities, business applications, 
games and more — all for the 
price of typing in the listings. 

If you’re a person on the move, 
and too busy to spend time typ¬ 
ing lengthy listings, then pcm has 
just what you need — 

PCM ON DISK. 


pcm on disk provides each 
issue’s MS-DOS programs ready 
to load and run with only a few 
keystrokes! 

AS AN ADDED BONUS, PCM ON 
disk will include pcm’s portable 
computer programs, which may 
be downloaded to portables for 
those readers who have both an 
MS-DOS machine and one of 
Tandy’s portable computers. 


That means you get a disk 
each month for a year, 
containing all programs listed 
in that month’s issue, for an 
average cost of only $8.25!* 

We think it’s worth your time to 
subscribe. 

Disks for individual issues (beginning 
with January 1986) may be ordered for 
only $12 each. 


PCM 


□ 

□ 


Full Year’s Subscription (specify starting month) 
Single Volume (specify month(s) & year) _ 


PCM ON DISK 

The Falsoft Building 
P.O. Box 385 
Prospect, KY 40059 
(502) 228-4492 


Name __ 

Address _____ 

Cit y ------State_ZIP 


To order by phone (credit card 
orders only) call (800) 847-0309, 
8 a.m. to 5 p.m. EST. For other 


Payment Enclosed □ 

Charge. Visa □ MasterCard □ American Express □ 


inquiries call (502) 228-4492. 


My Account# 


-Card Exp. Date 


Signature 


a separate purchase. U.S. currency only, please. In order to hold down non-editorial costs, we do not bill. 






































Delphi Bureau 


Wrapping Up the Workspace 


A lthough uploading files for 
submission to the MS-DOS 
SIG database is probably the 
most important use of the personal 
Workspace area on Delphi, it is by no 
means the only one. The Workspace is 
connected, not just to the database, 
but to almost every other area of the 
SIG. This month, let’s look at a few 
handy operations that can be per¬ 
formed on files that reside in the 
Workspace. 

• The Delphi Mail feature is more 
closely connected to the Workspace 
than any other area. Every personal 
message you receive is stored there, 
lumped together in a file with a long, 
strange-looking filename and an -MR I 
extension. You’ll recognize it when 
you see it. When you begin filing mail 
messages with the FILE command, 
they, too, are stored in the Workspace 
in separate “folders.” 

But this is just storage, and the files 
are readily accessible only from within 
Mail, not the Workspace. In other 
words, they have to be there; nothing 
handy at all about that. Let’s look at 
some useful things we can do with a 
text file that’s in the Workspace. 

We’ve already discussed three ways 
to upload a file. When you receive 
Mail, you can compose your responses 
offline, then upload them to the 
Workspace. Then, when in Mail, type 
SEND <f ilename> (as it is in your 
Workspace) and the file is grabbed 
from the Workspace and mailed — 
very handy for sending the same mes¬ 
sage to several people, or for a stock 
reponse to the same questions asked 


by several people. 

Another handy feature is the “mail 
distribution” file. For instance, you 
can create a distribution file contain¬ 
ing the names of all your friends, or 
perhaps everyone you know who uses 
the same terminal program you do. 
The usernames are listed, one to a line, 
and the file must be named with a . D15 
extension. Type CRERTE FRIENDS 
.DI5, enter the usernames you want 
included and close the file with a ^Z. 

Now, if you have a letter you want 
to distribute widely to your friends, or 
a question about your term program, 
you can send the message to them all 
at once. In Mail, SEND the message, 
and at the “To:” prompt, enter 
I2FRIENDS, or whatever you have 
named your .DIS file. 

Now, in the other direction, you can 
also save Mail message in your Work¬ 
space. For this, type EXTRACT <f i 1 e - 
name> and the text file is copied into 
the Workspace. Surprisingly enough, 
even binary program files can be sent 
through Mail and downloaded in this 
manner. That’s right, you can share 
your programs with others without 
ever making them public. After start¬ 
ing to read the binary file, type EX 
TRACT <f ilename>/NOHERDER. This 
preserves the file intact, without the 
Mail “header,” and it can then be 
downloaded with either Xmodem or 
Kermit from the Workspace. 

• The Conference is connected to the 
Workspace by the /LOG command. 
When you’re in a conference, you can 
save a transcript of the entire conver¬ 
sation merely by typing /LOG <file- 
name>. The transcript is saved in your 


Workspace, terminating when you exit 
the conference or enter /NOLOG. 

This is certainly a handy feature, 
allowing you to save entire conversa- 
tions for later review in the Workspace 
with the LIST command, or to mail to 
others to read, or even to post in the 
Forum. All you have to do is re¬ 
member the filename. 

• The Forum is closely connected to 
the Workspace for both input and 
storage. Again, you can create your 
reponses to Forum messages offline, 
conserving your online time, and 
upload those responses into your 
Workspace. In the Forum, type ADD 
<filename> and respond to the 
prompts that follow. Your message is 
pulled from your Workspace and 
posted. 

Conversely, if you’re reading a 
Forum message that interests you, 
type FILE <f i Iename> and that mes¬ 
sage is stored away in your Workspace 
where you won’t lose track of it. 

Unfortunately, due to a bug in the 
current version of the Forum software, 
it is not possible to reply to a message 
with REP <filename>. But this should 
be fixed very soon. 

Though there are many other things 
you can do in your Workspace and 
with the files stored there, these are a 
few of the most useful. Next month 
we’ll move on out into the database 
and investigate how to download 
some of the fantastic programs avail¬ 
able in the MS-DOS SIG. 

Kevin Nickols 
MS-DOS SIG Manager 
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TANDY IS DANDY... 


...until you compare 



Tandy 

Memory Plus 

Zuckerboard 

Expansion 

Memory 

DMA 

Inc. 

Inc. 

(V 

with 256K 

$319.95 

$109 

with 512K 

$519.90 

$149 

\ \ 

Options: 

Clock/Calendar 

$ 99.95* 

$49 

\ 

256K Upgrade 

$199.95 

$49 


RAM Disk/ 

Print Spooler 

N/A 

$49 


Warranty 

90 Days 

2 Years 


*with mouse 




INTRODUCTORY OFFER 


PCMA 



Send the Zuckerboards I need for my TANDY 1000 right away. 
Here’s my check □ or money order □ MADE PAYABLE TO A.T.D. 



_EM with 256K 
_EM with 512K 
Clock/calendar 
_256K upgrade 
_RAM DisW 
Print spooler 
.MultifunctionBoard @ $249 = . 
_ 10 MB Hard Disk @ $529 = . 
_20 MB Hard Disk @ $599 = . 


> $ 49 = . 


Subtotal_ 

CA residents 

add 7% tax_ 

Shipping_ 

Amount 
Enclosed_ 


$6.00 


NAME. 


ADDRESS. 
CITY 
TELEPHONE ( 


STATE 


ZIP 


) 




A.T.D. 1287 Lawrence Station Rd., Sunnyvale, CA 94089 


ZUCKERBOARD PRODUCTS FOR THE TANDY 1000 

Multifunction Board. $249 

Includes DMA controller chip, 512K memory, Clock/calendar with 20 year battery, 

Serial port, and Ramdisk/Print spooler software. 

Internal Hard Disk 10 Mbyte. $529 

20 Mbyte.$599 

Half-height. Includes controller and cables. Mounts internally, above floppy drive A. 
Requires system with DMA already installed. 

CALL TOLL-FREE TO ORDER 
CA (800) 233-6874 
(800) 222-4920 

Dr. Dr. Zucker 

It's another _ 

Ua<l:RI3c4l?D 



1287 Lawrence Station Road • Sunnyvale, CA 94089 • (408)734-4631 

ZUCKERBOARD is a Trademark of Advanced Transducer Devices, Inc. 

TANDY 1000 is a Trademark of Radio Shack, a Division of Tandy Corporation. 

All prices subject to change without notice due to fluctuations in the chip market. 












































Feature 


100 / 200 / 1000 / 1200 / 2000/3000 


Cursor 

Conversions 

By Dr. Leo Finkelstein, jr. 


Converting portable BASIC 
programs to GW-BASIC just got a 
little simpler 


O ne of the miseries I’ve found in writing 
programs in BASIC on my Tandy 200, 
and later converting them to the Tandy 
1000, or vice versa, is that the 200 uses 
PRINT® statements to locate the cursor, 
while GW-BASIC uses the L0CRTE state¬ 
ment. I wrote this short program to quickly convert values 
from one type of statement to the other. It’s designed to run 
on either the Tandy 200, or in GW-BASIC. In the case of GW- 
BASIC, it’s designed for use with medium graphics resolution 
and a text width of 40 columns (modes 1 or 4 on the Tandy 
1000). D 


Leo Finkelstein, Jr. is currently a lieutenant colonel in the 
Air Force Space Command at Colorado Springs, as well 
as an adjunct associate professor of communication at the 
University of Colorado. 


The listing: 

10 'CONVERSION FROM PRINT@ TO LOCATE 
20 'BY DR. LEO FINKELSTEIN, JR. 

3(3 'WRITTEN 3/86 

4(3 'WILL RUN ON TANDY 2(3(3 AND IN GW BASI 
C 

5(3 'CONVERTS TANDY 2(3(3 PRINT@ VALUES TO 
4(3 COLUMN SCREEN MODE LOCATE VALUES 
6(3 CLS 


7(3 PRINT "VALUE TO INPUT IS FROM WHAT?” 

8(3 PRINT:PRINT "(A) PRINT@ STATEMENT" 

9(3 PRINT "(B) LOCATE STATEMENT" 

1(3(3 A$=INKEY$: IF A$="" THEN 1(3(3 
11(3 IF A$="A" THEN 14(3 
12(3 IF A$="B" THEN 21(3 
13(3 GOTO 1(3(3 

14(3 'DETERMINE LOCATE VALUES 
15(3 PRINT: INPUT "ENTER PRINT@ VALUE" ;P 
16(3 R = INT(P/4(3)+l: 'DETERMINE ROW 
17(3 CC = P/4(3-INT(P/4(3) 

18(3 C - INT(40*CC) 

19(3 PRINT'.PRINT "PRINT@"P" EQUALS LOCATE 
"R","C 

2(3(3 GOTO 27(3 

21(3 'DETERMINE PRINT@ VALUE 
22(3 PRINT:PRINT "ENTER LOCATE VALUE WITH 
COMMA-E.G. 3,4" 

23(3 INPUT "LOCATE X,Y";R,C 
24(3 P = (R-l) * 4(3 + C 

25(3 PRINT:PRINT "LOCATE"R" , "C"EQUALS PRI 
NT@"P 

26(3 GOTO 27(3 

27(3 'DETERMINE NEXT REQUEST 

28(3 PRINT: PRINT: PRINT "HIT [X] TO DO ANO 

THER" 

29(3 PRINT "HIT ANY OTHER KEY TO QUIT" 

3(3(3 A$=INKEY$: IF A$="" THEN 3(30 

310 IF A$“"X" THEN 320 ELSE END 

320 GOTO 60 053 
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Model 100 

ROMDSK. 8K or 32K CUSTOM expansion rom for 
the TRS-80 Model 100. Custom programmed with 
YOUR programs. 

8K. $49.95 32K $69.95 

Call or Write ROSS COMPUTER SERVICES 

For Ordering Information 

TANDY 1000, 1200, 3000 iMlmlrUJil 




The SMART Software System, from Innovative Software. 

The SMART DATA MANAGER. $495.00 

The SMART WORD PROCESSOR. $295.00 

The SMART SPREADSHEET (With Graphics). $395.00 

The SMART SPELLCHECKER. $139.00 

The SMART SYSTEM*. List $895.00 .Call 

*The SMART Software System includes: The Smart Data Manager, The Smart Spread¬ 
sheet with Graphics, and The Smart Word Processor, and can only be sold as a 
system, not as individual products. The smart Software System includes built in 
asynchronous communications and personal time management programs. 


SHIFT YOUR HARD 
DISK BACK INTO 
HIGH GEAR 

Tune Your Disk Files For 
Highest Performance 

with 

disk optii 

Only $49.95 



K» BORIPHD 

INTERNATIONAL 

Turbo Tutor .$ 34.95 

Turbo Pascal 3.0.$ 69.95 

Turbo Pascal with 8087 . $109.90 

Turbo Pascal with BCD. $109.90 

Turbo Pascal 3.0 with 

both 8087 & BCD. $124.95 

Turbo Database Toolbox .... $ 54.95 

Turbo Graphix Toolbox.$ 54.95 

Turbo Editor Toolbox.$ 69.95 

Turbo Gameworks.$ 69.95 


Superkey.$ 69.96 

SideKick (copy-protected) .. $ 54.95 
SideKick 

(NOT copy-protected) ... $ 84.95 
Traveling SideKick 

(now available).$ 69.95 

Traveling SideKick 

with SideKick (NCP). $125.00 

Turbo Lightning .$ 99.95 

Reflex: The Analyst.$ 99.95 



MERCURY 300/ 

1200 MODEM 

Mercury 300/1200 
auto-answer/auto-dial, 

HAYES compatible 
MODEM. Uses the industry standard AT command 
set. 

SPECIAL . $179.95 






NOW JUST $49.95 


ORTHO’S COMPUTERIZED GARDENING 

PUT A COMPUTER TO WORK IN 
YOUR GARDEN! 

■ Regionalized to your zip code 

■ Over 750 plants 

■ You choose by common name, 
botanical name, height, color, 
soil condition, or water 
requirements 

♦Also included—’’Gardening Techniques,” 
a 196 page book with full color 
photography and illustrations. 


a 


RCS 


-iiliE 


V — 





i.wwv* 

« 




Ross Computer Services 

( 816 ) 363-2545 

Hours: 8:30 to 5:00 

After 5:00 you will reach our order line BBS 

1800 W. 91st Place • Kansas City, MO 64114 








































































The Integrated Desk 


Amortization and 
Mail Call Tips 


By Bobby Ballard 


Tips and Tricks from reader mail 


T he help and mail has 
been pouring in since 
the last mail call, “Tips, 
Tricks and Letters” 
(April 1986). I’ve re¬ 
ceived lots of great tips 
and information from a number of 
readers and I want to share them with 
you this month. 

The letters I’ve received are a great 
example of how we all benefit from 
sharing our experiences, solutions and 
questions. If you’ve found a trick or 
solution while using DeskMate , no 
matter how small it may seem to you, 
send it in. You never know who may 
be trying to solve a problem you’ve 
already licked. Look at the great 
responses and information that follow 

Bobby Ballard is a free-lance writer 
and the owner of a computer software 
and consulting firm. He also operates 
a BBS in Brooklyn. Bobby can be 
contacted at 1207 Eighth Avenue, 
Apt. 4R, Brooklyn, NY 11215. 


for an example of how we all benefit 
from this sharing. 

I am happy, first of all, to report 
that some of the information I gave 
you in the last mail column was in 
error. Happy because it means that 
some things I thought were impossible 
to do are, in reality, quite possible. 


Amortizing and 23 

When I last wrote on this subject, I 
was informed by Tandy Tower person¬ 
nel that using the spreadsheet example 
in the tutorial to amortize loans over 
23 periods or more was impossible. I 
was told this was a limitation of 
DeskMate and no fixes were planned. 
I tried to redesign the spreadsheet and 
still couldn’t get it to work. 

The good news and truth is that you 
can amortize loans of more than 23 
periods when you use the right for¬ 
mula and redesign the sheet too. I 
received a number of responses to this 
problem including a copy of a letter 
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from inside Tandy’s Towers. Duane 
Palmer of Carmi, Illinois, wrote di¬ 
rectly to the chairman of Tandy, John 
Roach, and received a polite response 
containing the answer from one of 
Tandy’s Customer Relations people. 
Bob Archenhold. 

Bob writes, “To calculate more than 
23 periods for your amortization 
schedule, use the following formula- 

#RIC2*#R2C2/(1-1/EXP 
(#R3C2*2.3026*LOG(1+#R2C2))). 

This formula uses logarithms to raise 
a number to a power, with 2.3026 
being the conversion factor between 
common and natural logarithms. 

“The following formula raises 
number ‘X’ to power ‘Y’: Result = 
EXP(2.3026*Y*LOG(X)). Please note 
that, when using this formula, you 
must create cells in columns long 
enough to hold the required number 
of periods. For example: to figure 48 
periods, you have to extend the selec¬ 
tion for the formulas to 48 cells down. 
You will see that the example in the 
manual says ‘Select from R8-R19’. 
You will have to change R19 to R56, 
or else you will get a *OERROR* 
message.” 

O ne point not made entirely 
clear is where to use the first 
formula. As Mr. Palmer points 
out in his accompanying letter, it is to 
go in payment column three (R8C3— 
R19C3). The second point is also 
important, as we’ve discussed here 
before; the columns must be increased 
in length to handle the new periods. To 
design the spreadsheet to handle 60 
periods (five years), extend the cells 
from R19 down to R67. 

I also heard from others. Michael 
Mazquiaran of Miami wrote with a 
solution that others presented too. 
While slightly different from the pre¬ 
vious solution, it is no less effective. 
Mr. Mazquiaran presents the follow¬ 
ing formula: #R1C2*R2C2/(I- 
(1+#R2C2)!-#R3C2), which is repres¬ 
ented by: 

P = Lx___L_ 


1 - ( 1 + i ) " n 

Mr. Mazquiaran gives credit for this 
formula to the Radio Shack Financial 
Calculator (EC-4051), page 30. The 
following key applies to this formula: 
‘P’ equals Monthly payment, ‘L’ 
equals Original loan amount, ‘i’ equals 
Interest rate (on a monthly basis), and 
‘n’equals Number of months (periods) 
of the loan. 


Mr. Mazquiaran is using his Tandy 
1000 to accomplish some powerful 
tasks, keeping thousands of records on 
disk using Filer. And while he’s moved 
on to' other more powerful applica¬ 
tions for some task, he is still putting 
DeskMate to work part time. He also 
wonders if anyone can help him track 
down the formula for determining the 
interest rate on a loan schedule when 
all other variables are known. He’s got 
the other equations already worked 
out. Can anyone help? 

T wo other gentlemen wrote pres¬ 
enting basically the same for¬ 
mula that Mr. Mazquiaran 
presents above. Howard F. Rulf and 
Edward Bible, both from Wisconsin, 
sent in the following variations. First, 
Mr. Bible adds a set of parentheses to 
solve the problem: #R1C2*#R2C2/(1- 
(1/(1 +#R2C2))!#R3C2) and goes on 
to present the following as a variation- 
#R1C2*R2C2/(1-(1+#R2C2)!(- 

R3C2)) that works equally well. Mr. 
Rulf though solves the problem in a 
different way with the same results. He 
sent in the following: #R1C2*#R2C2/ 
(1-10!(-#R3C2*LOG(1+#R2C2))) to 
be used in R8C3 of the example under 
discussion. While others wrote in with 
solutions, all were the same as these 
examples or close variations. I thank 
everyone who wrote in with solutions. 

As you can see, there are a number 
of solutions available to you. It’s a 
matter of making your choice and 
plugging in the formula. I hope this 
has been of help to some of you who 
may have despaired at the prospect of 
not even being able to amortize a 
simple car loan, for example. I would 
love to hear from anyone with any 
further thoughts on these formulas 
and solutions. I think the error in the 
manual is possibly a typo, but, I 
wonder which one was intended to be 
included? 

To help you choose which formula 
to use, I did some testing and have 
included the results in Table 1.1 timed 
the calculation time using each of the 
formulas and took note of any varia¬ 


tions in the results. The formula pres¬ 
ented by Bob Archenhold for Tandy 
computes a slightly different result 
than the others. It is very small and of 
little consequence for most applica¬ 
tions. This same formula, while the 
longest, tied for first in speed. The 
other fastest formula is the unique one 
presented by Howard F. Rulf. Take a 
look at the results in Table 1. 

The Test 

I like the equation presented by Mr. 
Rulf, personally, because it is as fast 
as the Radio Shack entry, returns 
results exactly like two of the other 
equations and uses less memory. The 
test I performed was very simple. I 
designed a table to amortize a loan 
over 60 periods and set up the interest 
cell to handle up to six digits. I then 
tracked the calculation time to amor¬ 
tize $100,000 at 9.25 percent annual 
financing rate for five years (60 peri¬ 
ods.) The times given in Table 1 are 
from the time the last prompt, ?PERI 
□DS, is answered at the start of the first 
screen write and are given in minutes. 
Someone, after seeing the differences, 
might know why they occur. My first 
guess would be that using the LOG 
function (common to both fast formu¬ 
las) has an effect on speed. 

Of course, this was not a contest for 
the fastest, just a search for a solution. 
I’d say the solution is found, thanks to 
the readers. I just wanted to see which 
was fastest, if any, since I noticed it 
took quite a while to calculate my test 
example. It’s nice to satisfy a little 
curiosity now and then. 


Mail Merge Too 

I am also happy to report that there 
is a way to do a mail merge with 
DeskMate, but you must purchase 
additional software. While this might 
not be the greatest news, I must admit 
the inexpensive software offered to 
solve this problem is better than hav¬ 
ing to buy and learn a whole new 
package just to get mail merge capa¬ 
bility. 


Table 1 


# Formula 


Time (min) Comment 


1 #R1C2*#R2C2/(1-(1+#R2C2)f-#R3C2) 

\ :o^n?L 2C2/<1 ' l/EXP(#R3C2 ’ V2 - 3 ^ 26 ' VLO =CX + #R2c2))) 

3 #R1C2*#R2C2/(1-(1/(1+#R2C2)>!#R3C2) 

4 #RIC2*#R2C2/(1-1J>| <-#R3C2*L0Ga+#R2C2») 


2:58.3 

2:25.2 

2:30.8 

2:25.2 


Short 

Memory hog 
Pretty fast 
My favorite 
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As a result of the first mail call 
column, 1 received notices of two new 
software packages that are geared 
toward mail merging with DeskMate 
files. One of the new programs, Cor- 
Mail, already available on the market, 
is being reviewed by PCM. Keep a 
watch for the review if this is a cap¬ 
ability you’re interested in using with 
DeskMate. I’ve yet to see Cor Mail, 
but a copy is on the way and I will give 
you more details later. 

I also heard from another gentle¬ 
man who is supposedly working on a 
mail merge program for DeskMate. 
Since this product has not been com¬ 
pleted or released, 1 will not print the 
details right now. If and when this 
product becomes available, I will give 
you the details and other information 
right here in “The Integrated Desk.” 

The first package, CorMail from 
Corwin Software, was written by 
William C. Corwin, Ph.D., and can be 
used to generate a mail merge or to 
print labels, show and suppress tele¬ 
phone numbers, print multiple labels, 
delete selected records and a few other 
features. The price is $30 as of this 
writing and requires GW-BASIC on a 
Tandy 1000 or 2000 and works with 
only one floppy drive. However, the 
author feels it might run well on the 
3000 and 6000 too. You might call to 
find out more about those machines. 

The flyer sent to me said, “The 
program, CORMAIL.BAS, accesses 
files in DeskMate to print mailing 
labels and to print a sequence of letters 
using a letter, CHNLTR. DOC, from Text 
and inserting an address from COR- 
WIN.FIL in the Filer automatically 
without any operator attention be¬ 
tween letters. The Text and Filer are 
set up in a specific but ordinary way. 
DeskMate is then exited, BASIC is 
called, and CORMAIL.BAS is 
loaded.” The program disk contains 
sample files from Text and Filer to 
help you along. 

To find out more about CorMail or 
to place an order, you can reach Dr. 
Corwin at Corwin Software, 10066 
West Mawman Avenue, Waukegan, IL 
60087-2431, (312) 623-4114. 

The version currently available runs 
in interpreted BASIC, with a compiled 
version planned for the near future. 
This sounds like a handy program and 
1 will, as I said, let you know more 
when I see a copy running. 

Embedded Printer Codes 

1 also received a great suggestion 


from Jerry Stajduhar, in New Hamp¬ 
shire, explaining how to embed printer 
codes into your DeskMate files using 
the LPDRVR . SYS supplied on your 
MS-DOS diskette. The process is 
quite involved but not that difficult. 
I’ll give you complete details next 
month, but if you’re interested in 
doing some poking around on your 
own, here are the basics of the process. 

As Jerry points out, “the trick to 
getting control codes into the file is on 
page 314 of the MS-DOS reference 
manual.” If you don’t have this man¬ 
ual, don’t worry. I’ll give you all the 
details and explain each step, care¬ 
fully, next month. 

The process is simple; instruct the 
LPDRVR.SYS software to intercept 
certain, little-used characters and 
replace them with strings tfcat contain 
printer control codes. In order to 
make this work, you must know how 
and what codes to use on your brand 
and model of printer. While many 
printers use the same codes, many do 
not. Refer to your printer manual or 
contact the manufacturer if you need 
more information about your printer. 

The first step is to make sure that 
DEVICE=LPDRVR.SY5 is in your CON¬ 
FIG.SYS file. Next, you add a PRINT 
CHR. DPT / P command to your AUTO¬ 
EXEC. BAT file. The CHR.DAT file con¬ 
tains the codes to replace the old 
ASCII codes. You must create this file 
using either a BASIC program like 


Jerry sent (see the listing) or using 
EDLIN, the DOS line editor supplied 
on your MS-DOS diskette. 

When you use Jerry’s program, 
make sure you name the file (answer 
the first prompt) with the same name 
as appears in your AUTOEXEC. BAT file. 
If you use EDLIN, open the file with 
the name you use in the AUTOEXEC¬ 
.BAT file. In this example the name is 
CHR.DAT. I will explain both in more 
detail next month. 

I’ve only very quickly explained this 
process and 1 apologize for not having 
the room to cover everything every 
month. In addition, Jerry’s letter got 
here just in time for me to tell you 
about it, but not in time to try out all 
the possibilities and put together some 
listings and examples. In the mean¬ 
time, look over your printer manual, 
fix up your work sheet amortization 
table with a new equation and look 
over the program Mr. Stajduhar sent 
in. 

In closing, let me thank everyone 
who wrote in with solutions and sug¬ 
gestions. I know everyone who bene¬ 
fits from these solutions and sugges¬ 
tions thanks you also. It’s this type of 
participation that makes it possible for 
all of us to make the most of our 
computers and DeskMate. If you have 
any comments, suggestions, or com¬ 
plaints about this month’s material or 
DeskMate in general, just write to me 
or contact me on Delphi. D 


The listing: 


10 CLS 

20 INPUT"ENTER FILE NAME";A$ 

25 OPEN "0",1,A$ 

30 Q=1:Q$="" 

35 PRINT"TO TERMINATE ENTER A 0" 

40 WHILE QO0 

50 INPUT"ENTER ASCII VALUE TO DUMP TO FILE";Q 
55 IF Q=0 THEN 70 
60 Q$=Q$+CHR$(Q) 

70 WEND 

80 PRINT#1,Q$; 

90 CLOSE 

100 ' BY JERRY STAJDUHAR 

110 ’ CREATES CHR.DAT FOR LPDRVR.SYS 


033 
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BASIC’s Magnificent 
Shell Command 


By Brian H. Alsop 


B asic has a super-power¬ 
ful command called 
SHELL. It can unlock the 
power of your machine. 
How would you like a 
system of menus that can 
ask questions and decide on the course 
to follow? SHELL can call BASIC pro¬ 



grams, commercial software pro¬ 
grams, assembly language programs 
or batch files. Would you like to access 
DOS commands such as SORT and DIR 
directly from BASIC? SHELL can do 
this, too. While others are struggling 
with batch files, you can have a com¬ 
mand system that runs circles around 
anything batch files can do. SHELL can 
do all this and more — and it’s easy. 


Background 

In the beginning there was a com¬ 
puter. It needed an operating system 
(OS). The purpose of the system was 
to permit simple operations without 
having to punch in hexadecimal 
numbers. Then came BASIC. Its pur¬ 
pose was to create programs to run. In 
the beginning they were completely 
separate. The OS couldn’t use BASIC 
commands and BASIC couldn’t use OS 
commands. This was unfortunate. 
BASIC needed at least some of the OS 
commands. At first, substitute com¬ 
mands such as FILES for DIR were 
created, then it became obvious more 
was needed. There came a bright idea: 
Why not let BASIC access any operat¬ 
ing system command? Why not also let 
it run other non-BASIC programs and 
return to BASIC where it left off? The 
SHELL command was invented. 

This story is fictional but describes 
a history that could have led to the 
current situation with MS-DOS and 
BASIC. Anyone who has used a system 


Brian Alsop is an engineer working on 
introducing personal computers into 
the engineering work environment. He 
is a pilot and holds an amateur radio 
operator's license. Brian can be con¬ 
tacted at 113 Boone Rd., Trafford, PA 
15085; (412) 373-3363. 
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where all OS commands are integral 
to BASIC (like the Radio Shack Color 
Computer) can’t imagine why they 
would ever be separate. Whatever the 
reason, it’s a fact. DOS commands are 
not a part of BASIC as implemented on 
Tandy 1000, 2000 or 3000 computers. 
They aren’t part of BASIC on IBM PCs 
either. However, it turns out that the 
SHELL command plus the operating 
system utilities provided with the OS 
more than make up for this oversight. 

Shell Command Basics 

The syntax for the SHELL command 
is SHELL S$. Listing 1 shows a simple 
BASIC program invoking the SHELL 
command. The S$ string can be any 
DOS command, a batch file or 
another (non-BASIC) program. When 
a SHELL is encountered, the area of 
memory BASIC occupies is protected 
(including all variables and data), the 
command specified in the 5$ string is 
executed and then returns to BASIC. 
The BASIC display screen may be 
altered. 

Table 1 gives a listing of some useful 
SHELL strings. An example of a more 
complicated string might be SORT 
<FILE1.ASC >FILE2.A5C. This sec¬ 
ond string takes FILE1. ASC, sorts it in 
alphabetical order and places the 
contents in FILE2. ASC. This could be 
quite useful. If FI LEI. ASC were pre¬ 
viously created and closed in the BASIC 
run, it could be sorted using the DOS 
assembly language sorting routine and 
then return the sorted file to BASIC. 
Since the SORT command also allows 
fields to be sorted, one could sort on 
selected fields. This gives BASIC the 
power of DOS assembly language 
commands without the mess of using 
USR functions. Listing 2 illustrates this 
application of SHELL. The output of 
the program is also given. 

Listing 3 shows how to obtain a 
sorted directory listing. It combines 
two SHELL commands in sequence. 
The program first issues a SHELL "DIR 
>XV2 ." command. BASIC then puts 
itself on hold and DOS takes over. The 
directory is listed into file XYZ. The 
contents of XYZ look exactly like the 
screen listing when a DIR is issued. 
This means there are a few lines of 
header information to skip over before 
getting to the filenames. After the 
DOS command is completed, BASIC is 
reentered and continues where it left 
off. 

The program then issues a SORT 
<XYZ. >DR . command. This sorts the 
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XYZ file alphabetically into file DR. 
Because the header information and 
other directory information are pre¬ 
ceded by spaces, the sorting process 
puts them all at the top of the DR file. 
BASIC is then reentered. It opens file 
DR and begins reading a record at a 
time. It skips over the header informa¬ 
tion, retrieves the first 12 characters of 
each line and writes this filename 
extension data to the screen. 

Up to this point, life was easy —just 
issue the magic SHELL command. 
However, if you were to run one of 
these programs, you would see that the 
DOS command sometimes writes to 
the screen with its own comments. 
These commands either disappear 
with no effect on the existing BASIC 
screen or cause the screen to scroll. If 
this is a problem in a particular appli¬ 
cation, there is a simple solution. Save 
the screen to memory before executing 
the SHELL command and restore it on 
returning. 

Listing 4 shows the augmented 
subroutine for SHELLing. The BSRVE 
command saves the screen in file 
SCREEN .BIN and the BLORD command 
calls it back. The BSRVE command 
needs to know where to start saving 
from, how much to save and the 
filename. BSRVE begins saving at a 
memory location defined by the last 
DEF SEG command. If none is sup¬ 
plied, it assumes the segment that 
BASIC occupies. 

In a Tandy 1000, the text and graph¬ 
ics screens are located at &HB8000. 
Therefore, one must position-define 
the starting point at memory location 
&HB8000. The DEF SEG = &HB800 
performs this function. (Note: There 
seems to be one zero left off. It is not 
a mistake. BASIC inserts the extra zero 
when performing the segment reposi¬ 
tioning.) The filename chosen here is 
SCREEN.BIN. Other Tandy 1000 com¬ 
patible machines may locate mon¬ 
ochrome screens elsewhere in memory. 
However, their color screens usually 
start at &HB8000. 

How much memory to save depends 
on the screen mode. The appropriate 
values for ‘X’ in the augmented SHELL 
subroutine are &H1000, &H4000, 
&H4000, &H4000, &H4000, &H8000 
and &H8000 for screen modes zero 
through six, respectively. 

The next DEF SEG command returns 
to the core memory area BASIC is using 
after the BSRVE. The BLORD command 
needs to know where to load the file 
in memory and the filename. Again a 
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Table 1 

Useful DOS Commands for SHELL 


Command 

Function 

CD\ 

Change Directory 

copy 

Copy a file 

DATE 

Set Date 

DIR 

Obtain Directory List 

DISKCOPY 

Copy a Whole Disk 

ERASE 

Erase a File 

FORMAT 

Format a Disk 

PRINT 

Spool Print a File 

RENAME 

Rename a File 

SHIPTRAK 

Store HD Head 

SORT 

Sort a File 

TYPE 

Type File on Screen 

TIME 

Set Time 


DEF SEG =8.HB800 is used to define the 
starting memory location. The pre¬ 
viously saved screen is then loaded. A 
DEF 5EG command returns to the 
BASIC program memory area. It’s a 
good idea to position the cursor where 
you want it when exiting the SHELL 
subroutine. 

These examples are building blocks 
to more complicated applications. I 
use the SHELL command to build 
complex menus calling DOS com¬ 
mands, BASIC programs, compiled 
BASIC programs, assembly language 
programs, FORTRAN programs and 
batch files. SHELL has been useful in 
creating a hard disk database for easy 
location of files. I’ve even used SHELL 
to automatically back up and restore 
disk files to and from mainframe 
computers using terminal emulation 
file transfer commands. With SHELL, 
one is limited only by imagination. 

Two more complicated SHELL ex¬ 
amples follow. The first is a menu 
program that accesses all types of 
BASIC and non-BASIC programs. The 
second example is the hard disk file 
database program. Study them, try 
them, then go off and create your own 
applications. You’ll find BASIC’s 
SHELL command is simpler and more 
powerful than using batch files or 
some other lower level language. 

Menu Program 

A general menu program should 
permit a high degree of user interac¬ 
tion. It should be able to run programs 
and batch file sequences of all types. 
Finally, it should provide for return to 
itself on the completion of the selected 
application. With BASIC and the 
SHELL command this is all possible. 
The example also illustrates how to get 


Sample S$ 

"CD\UTILITY" 

"COPY FILE1.BAS B:FILE2.BflS" 
"DATE" 

"DIR ft:" 

"DISKCOPY ft:" 

"ERftSE FILEl.flSC" 

"FORMAT B:" 

"PRINT FILEl.flSC" 

"RENAME FILEl.flSC FILE2.ASC" 
"SHIPTRAK" 

"SORT <FILEl.ftSC >FILE2.flSC" 
"TYPE FILEl.flSC" 

"TIME" 

around the problem of executing a 
compiled BASIC program from within 
a BASIC menu. Normally, one can’t call 
compiled basic from basic because 
they use the same memory area. 

Listing 5 shows a sample menu 
program. It has six choices. From the 
menu one can invoke spooler printing 
of a file, run an interpreted BASIC 
program, run a compiled basic pro¬ 
gram, generate a sorted directory 
listing using DOS commands, run a 
batch file and run an assembly lan¬ 
guage program. 

It is assumed that all programs exist 


on the current drive and directory. Use 
path suffixes to access programs from 
other drives and directories. 

Lines 50-190 define the program 
setup and menu. Menu creation is 
straightforward and involves a few 
PRINTS and one INPUT command. 
Once a choice is made, it is first tested 
to see if the program should end. An 
‘E’ or ‘e’ entry signifies the end of the 
program. A SYSTEM command exits 
the program. Next the value of the 
input variable X$ is determined. An ON 

_GOSUB multiway branch is used 

to select the appropriate subroutine. 
On return from the subroutine, the 
screen is cleared and the menu rewrit¬ 
ten. 

The first choice presented is sending 
a file to the DOS Print program to be 
printed in the background while pro¬ 
gram execution continues. The pro¬ 
gram executes the subroutine in lines 
210-250 to do this. First the program 
prompts for the filename to spool. One 
can specify a full path and filename. 
Then the program constructs the DOS 
PRINT command by linking the file¬ 
name to Print and puts this string into 
S$. Next a SHELL S$ is executed. The 
operating system takes over and loads 
Print (if it is not already resident) and 
spools the file to the printer. The Print 
program reports on what files it has in 


Listing 1: Simple SHELL Example 

1p 'This program copies a file named X.BAT to Y.BAT 
20 S$=”COPY X.BAT Y.BAT” 

30 GOSUB 200 
AfT END 

200 SHELL S$ 

210 RETURN 


Listing 2: File Sorting in BASIC using 
DOS SORT 

10 ' First a file with non-ordered strings is created 
20 OPEN "0”, #1, "FILE1.ASC” 

30 PRINT #1, "XYQ” 

40 PRINT #1, "ABC” 

50 PRINT #1, "DEF" 

60 CLOSE 

70 S$="SORT <FILE1.ASC >FILE2.ASC" 

80 GOSUB 200 

90 OPEN "I",#l, "FILE2.ASC” 

100 IF E0F(1) THEN END 
110 LINE INPUT#1, A? 

120 PRINT A$. 

130 GOTO 100 
140 END 
200 SHELL S$ 

210 RETURN 

OUTPUT FROM LISTING 2 
ABC DEF XYQ 
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Listing 3: Sorted Directory Program 

10 ' THIS PROGRAM OBTAINS A SORTED DIRECTORY LISTING 
20 GOSUB 340 
30 END 

340 ' THIS SUBROUTINE OBTAINS A SORTED DIRECTORY 
350 SHELL"DIR>XYZ." 

360 SHELL"SORT <XYZ. >DR." 

370 CLS 

380 OPEN "I",#1,"DR." 

390 FOR 1=1 TO 1000 
400 IF EOF(l) THEN 490 
410 INPUT #1, A$ 

420 IF 1=4 THEN PRINT A$ 

430 IF I<6 THEN 480 

440 IF LEFT$(A$,1>~" " THEN 480 

450 IF LEFT$(A$,1)=”. m THEN 480 

460 PRINT LEFT$(A$,12)+" CT=CT+1 

470 IF CT>4 THEN PRINT:CT=0 

480 NEXT I 

490 RETURN 


Listing 4: Augmented SHELL Subroutine 

200 DEF SEG = &HB800 
210 X=6cH1000 : 1 TEXT SCREEM 
210 BSAVE "SCREEN.BIN", 0, X 
220 DEF SEG 
230 SHELL S$ 

240 DEF SEG = &HB800 
250 BLOAD "SCREEN.BIN">0 
260 DEF SEG 
270 RETURN 


its queue and releases control. At this 
point BASIC is reentered and the menu 
rewritten. You can continue doing 
something else while the document is 
printing. 

The second choice is running an 
interpreted BASIC program. The sub¬ 
routine in lines 260-270 do this. The 
process is simple. Just execute a RUN- 
"BASPR0G2". That command loads 
the program and executes it. To get 
back from BASPROG2 , one must 
insert a line RUN"MENU" in BAS- 
PROG2 to return to this Menu pro¬ 
gram. This line replaces the normal 
END or SYSTEM line in BASPROG2. 

BASPROG2 can do anything in¬ 
cluding specifying more menu choices. 

I use this extensively to permit others 
in the household to get to their pro¬ 
grams without having to remember 
filenames. They just select menu 
choices. If the RUN"BASPR0G2" com¬ 
mand is preceded by a SHELL com¬ 
mand redefining the directory, multi¬ 
ple users could automatically be sent 
to their directory before accessing any 
files. Returning to the main menu in 
this case would require a SHELL "cd\ 
" line followed by a RUN "MENU" line 
— assuming Menu was in the root 
directory. 

The third choice is running a com¬ 
piled BASIC program. The subroutine 
in lines 280-330 shows how. There are 
many of these programs on the market 
today. Public domain bulletin boards 
are loaded with them. Even some 
commercial software programs are 
written in compiled BASIC. These 
programs typically have an extension 
of EXE. The difficulty in accessing 
them via interpreted BASIC is that they 
both need the same work space. This 
memory conflict can easily be resolved 
by exiting BASIC, loading the program 
and reloading the interpreted BASIC 
menu program on completion. The 
easiest way to accomplish this is to 
create a batch file. In this case, the 
name is BATl.BflT. The batch file is 
then SHELLed. The first line in the 
batch file is the compiled BASIC pro¬ 
gram to be run. The second line is 
BA5ICA MENU. If some communication 
is needed between the programs, do it 
via files. 

The fourth choice is obtaining a 
sorted directory. This subroutine is in 
lines 340-490. It is identical to Listing 
2. The only enhancement added is the 
addition of a prompt to return to the 
menu. 


The fifth choice is running a batch 
file. Lines 500-570 contain the com¬ 
mands. This example allows resetting 
of the date and time from within 
BASIC. The only difference between 
this example and the compiled BASIC 
choice is that BASIC does not have to 
be reloaded to return to it. In this 
example, the Date and Time DOS 
programs prompt for the needed 
input. This is potentially a case where 
one may want to save the BASIC screen 
before executing the SHELL. 

The sixth choice presented is run¬ 
ning an EXE or COM program from 
BASIC. The subroutine in lines 580-640 
show how to do this. This example 
SHELLsJthe DOS Debug program. 
When Debug is exited, the computer 
returns to the BASIC menu program. I 
use this type of SHELL extensively to 
create interactive pre-processors and 
post-processors for existing FORTRAN 
programs. All the input is interactively 
generated in a BASIC program and 
written to a file. The FORTRAN pro¬ 
gram reads the input file, runs and 
stores its output in a file. The BASIC 
program reads the file, displays it, 


plots it or whatever. Changes to the 
input can be made and the FORTRAN 
job resubmitted. It’s like having the 
best of both worlds. 

Lines 650-680 contain the error 
subroutine. Only one type of error is 
specifically flagged. If a file is not 
found, an error message saying so is 
printed on Line 25. After a delay, the 
program is resumed at Line 70. Other 
errors generate no message and re¬ 
sume at Line 70. 

Hard Disk File Database Program 

One of the problems with a compu¬ 
ter is keeping track of the programs. 
If you have hard disk, this task re¬ 
quires super-human efforts. I needed 
a program to keep track of every file’s 
location and allow me to find it — 
given a filename or partial filename. 
Also, it should be able to update itself, 
when requested, to reflect changes. 
Printed output should be available 
when requested. 

After some thought, it became ob¬ 
vious that SHELL was the way to do it. 
Listing 6 shows the result. The process 
is simple. Obtain sorted directory 
listing files for all directories, then 
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read these files and search for selected 
filenames or filename substrings. 
From our previous examples, we al¬ 
ready know how to create the sorted 
directories. All one has to do is write 
a small program to permit reading and 
searching of the files. It turned out the 
program could also find all directory 
names, all files written on a particular 
date and all files of a particular exten¬ 
sion. Just tell the program the appro¬ 
priate substring on which to search. 
The program functions as follows. 

Lines 100-170 read the directory 
names from the DfiTfi statements. This 
list of directory names is terminated 
with a STOP IT as the last entry. These 
directory names are entered into array 
FF$ starting with Array Index 2. 
Array Index 1 is reserved for the root 
directory. One can also handle subdi¬ 
rectories by entering the path and 
subdirectory name (e.g., uordstar\ 
d i rec t2). With the exception of 
subdirectories, no backslash charac¬ 
ters are entered (see lines 1000-1010). 

Next, these directories are put in 
alphabetical order by a call to the 


subroutine at Line 1020. Lines 200-230 
construct GF $ strings. GF $ contains the 
actual path statement and filename for 
the to-be-created DR sorted directory 
files. Lines 250-260 similarly set up 
GF$ for the root directory. 

Lines 270-570 contain the menu and 
option-selection coding. First the 
program asks in Line 320 if the direc¬ 
tory files are to be updated. If so, the 
program goes to the update subrou¬ 
tine starting at Line 810. This subrou¬ 
tine is very similar to that discussed 
before. The only real difference is the 
process is in a loop to generate separ¬ 
ate sorted directory files for all direc¬ 
tories. This requires a CD command to 
switch to the appropriate directory 
before generating the file. 

Line 960 returns the directory to the 
root before continuing. Assuming the 
sorted directory files DR exist, the 
program then asks if one is interested 
in searching for files in all directories 
or just one. If an ‘E’ is entered, the 
program ends. If a single directory is 
chosen, one can update just that direc¬ 
tory, print the sorted directory, or 


search for a file or substring. 

If all is chosen, the program allows 
searching for a particular file or sub¬ 
string only. Lines 580-770 do the 
searching of all DR files or the partic¬ 
ular directory’s DR file. The BASIC 
IN5TR command is used to look for 
the specified substring or filename. 
The screen output is paginated and all 
matches found are printed along with 
their file size, date and directory. The 
program returns to the menu after 
completing the search. 

That’s it. The key to performing this 
was the ability to use DOS commands 
within BASIC. 

Other Applications 

To obtain the most from the SHELL 
command, become familiar with all 
the programs supplied with MS-DOS. 
Barden and others have written arti¬ 
cles in PCM explaining how to use 
these programs. This article should 
provide enough information to inte¬ 
grate other commercial programs as 
well. For starters, try writing a hard 
disk backup program to back up 
multiple diskettes of data and to 
prompt when to change diskettes. □ 


Listing 5: Menu Program 

1 0 1 MENU PROGRAM 

20 ' ILLUSTRATING HOW TO USE SHELL AND R 
UN COMMANDS TO 

30 • ACCESS DOS COMMANDS, BASIC AND NON- 

BASIC PROGRAMS 

40 ‘ VIA MENU CONTROL 

50 ON ERROR GOTO 650 :'ERROR HANDLING RO 
UTINE 

60 'SET UP MENU 

70 KEY OFF:COLOR 0,14,0 :CLS 

80 LOCATE 3,33:PRINT "MENU CHOICES" 

90 LOCATE 5,27:PRINT "1. SEND FILE TO PR 
INT QUEUE" 

100 LOCATE 7,27:PRINT "2. RUN BASIC PROG 
RAM " 

110 LOCATE 9,27:PRINT "3. RUN COMPLIED B 
ASIC PROGRAM" 

120 LOCATE 11,27:PRINT"4. LIST SORTED DI 
RECTORY" 

130 LOCATE 13,27:PRINT"5. RUN BATCH FILE 
140 LOCATE 15,27:PRINT"6. RUN EXE FILE 

150 LOCATE 18,35:PRINT"E. END” 

160 LOCATE 21,27:INPUT"MAKE CHOICE: ",X$ 
170 IF X$="E" OR X$="e" THEN SYSTEM 
180 ON VAL(X$) GOSUB 210,260,280,340,500 
,580 

190 GOTO 70 
200 END 

210 1 THIS SUBROUTINE SENDS A FILE TO TH 
E PRINT QUEUE. THE DOS PRINT SPOOOLER 
PROGRAM IS USED. 

220 LOCATE 25,1:INPUT"INPUT FILENAME TO 
PRINT ";X$ 

230 S$="PR1NT "+X$ 


240 SHELL S$ 

250 RETURN 

260 ' THIS SUBROUTINE RUNS BASIC PROGRAM 
#2. TO RETURN TO THIS MENU THE PROGRAM 
MUST CONTAIN A RUN "MENU". 

270 RUN"BASPROG2" 

280 ' THIS SUBROUTINE RUNS A COMPILED BA 
SIC PROGRAM. HERE A BATCH FILE MUST BE 
EXECUTED. THE BATCH FILE BAT1 CON 
TAINS ARE: 

290 ' C0MPBAS1.EXE 

300 ' BASICA MENU 

310 ' THE BATCH FILE FIRST EXECUTES THE 
COMPILED BASIC PROGRAM COMPBASl AND 

THEN RERUNS THIS MENU PROGRAM 

320 SHELL"BAT1.BAT" 

330 SYSTEM 

340 ' THIS SUBROUTINE OBTAINS A SORTED D 
IRECTORY 

350 SHELL"DIR>FILE1.ASC" 

360 SHELL"SORT <FILE1.ASC >FILE2.ASC" ; 
370 CLS 

380 OPEN "I",#1,"FILE2.ASC" 

390 FOR 1=1 TO 1000 
400 IF E0F(1) THEN 490 
410 INPUT #1, A$ 

420 IF 1=4 THEN PRINT A$ 

430 IF I<6 THEN 480 

440 IF LEFT$(A$,1)=" " THEN 480 

450 IF LEFT$(A$,1)="." THEN 480 

460 PRINT LEFT$(A$,12)+" ";: CT=CT+1 

470 IF CT>4 THEN PRINT:CT=0 

480 NEXT I 

490 PRINT:LOCATE 25,1:INPUT"HIT ENTER TO 
CONTINUE",X$:RETURN 

500 'THIS SUBROUTINE RUNS A BATCH FILE W 
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HICIl UPDATES DATE AND TIME 

51(3 ’THE BATCH FILE NAME IS DTETIM.BAT. 

IT CONTAINS: 

52(3 ’ DATE 

53(3 • TIME 

540 CLS 

55(3 SHELL"DTETIM. BAT" 

56(3 LOCATE 25,1: INPUT”HIT ENTER TO RETUR 
N ”,X$ 

57(3 RETURN 

58(3 ’ THIS SUBROUTINE RUNS AN EXE OR COM 
FILE. EXE FILES CAN SOMETIMES BE 

COMPILED BASIC PROGRAMS. IF STRAN 
GE THINGS HAPPEN WHEN YOU RETURN (E.G. 
59(3 ' DOUBLE CURSORS OR WORSE) YOUR EXE 
FILE WAS MOST LIKELY A COMPILED BASIC 
6(3(3 ' PROGRAM. TREAT IT LIKE THE COMPIL 
ED BASIC EXAMPLE ABOVE. 

610 CLS 

620 SHELL"DEBUG.EXE " 

630 CLS .-LOCATE 25,1: INPUT"HIT ENTER TO C 
ONTINUE ”,X$ 

640 RETURN 

650 'ERROR ROUTINE 

660 IF ERR-53 THEN BEEP:LOCATE 25,1:PRIN 
T"FILE NOT FOUND" 

670 FOR 1=1 TO 2000:NEXT 
680 RESUME 70 


Listing 6: Hard Disk File Inventory 
Program 

10 Tl$=" FINDER P 

ROGRAM" 

20 T2$—"COPYRIGHT 1986- B.H. ALSOP, 113 
BOONE RD., TRAFFORD, PA. 15085" 

30 ' THIS PROGRAM FINDS A FILE OR PARTIA 
L FILE NAME, EXTENSION OR SUBSTRING IN 

A SPECIFIED DIRECTORY OR IN ALL DIR 
ECTORIES. 

40 ’ SORTED DIRECTORIES OF FILES CAN BE 
PRINTED. 

50 ' THIS PROGRAM ILLUSTRATES THE USE OF 
SHELL COMMANDS TO EXECUTE DOS COMMANDS 
FROM WITHIN BASIC. THE DOS CD\, DI 
R, SORT AND FILE REDIRECTION COMMANDS 
ARE USED. 

60 ' UP TO 33 DIRECTORIES CAN BE HANDLED 
WITHOUT REFORMATING THE MENU. 

70 COLOR 14,1,1:KEY OFF:CLS 
80 LOCATE 10,10:PRINT Tl$:LOCATE 14,10:P 
RINT T2$:FOR 1-1 TO 3000:NEXT 
90 N-34 

100 'DIMENSION AND READ DIRECTORY NAMES 
FF$(I) 

110 'STOP READING WHEN "STOPIT" IS READ 
120 'PROGRAM CREATES A SORTED FILE OF DI 
RECTORY NAMES IN A FILE NAMED DR 
130 DIM FF$(N+1),GF$(N+1) 

140 FOR 1-2 TO N 
150 READ FF$(I) 

160 IF FF$(I)-"STOPIT" OR FF$(I)-"stoplt 

" GOTO 190 

170 NEXT I 

180 GOSUB 1020 

190 N-I-l 

200 'ADD PATH NAMES TO FF$ AND CONSTRUCT 
STRINGS LIKE \BASIC\DR IN GF$(I) 

210 FOR 1-2 TO N 

220 GF$(I)="\"+FF$(I)+"\DR." 

230 NEXT I 

240 'SET UP ROOT DIRECTORY AS FIRST ENTR 


Y IN FF$(I) AND GF$(I) 

250 GF$(1)—"DR." 

260 FF$(l)-"ROOT" 

270 'SET UP SCREEN MENU. MORE THAN 17 D 
IRECTORIES PRODUCES 2 COLUMN MENU 
280 COLOR 14,1,1:CLS 
290 IN-16 

300 LOCATE 1,28:PRINT"SORTED DIRECTORY 
PROGRAM” 

310 'UPDATES OF DIRECTORY CONTENTS ARE M 
ADE BY CHOOSING Y 

320 LOCATE 3,26:INPUT "SORT ALL DIRECTOR 
IES(Y/N)";UD1$ 

330 IF UD1$-"Y" OR UDl$="y" THEN 340 ELS 
E 350 

340 FOR M-l TO N:LOCATE 15,25:PRINT"UPDA 
TING DIRECTORY FF$(M);:LOCATE 25,1:GO 
SUB 810:NEXT M 
350 COLOR 14,1,1:CLS 

360 LOCATE 1,28:PRINT"SORTED DIRECTORY P 
ROGRAM" 

,370 LOCATE 3,1 
'380 FOR 1-1 TO N 
390 Y-2+I 

400 IF I>17 THEN DN-32 ELSE DN-0 
410 IF I>17 THEN Y-Y-17 

420 LOCATE Y,IN+DN:PRINT USING"##";I;:PR 
INT". ";FF$(I); 

430 NEXT I 

440 'PROMPT FOR DIRECTORY, E TO EXIT OR 
ALL FOR ALL DIRECTORIES 
450 LOCATE 21,5:INPUT; "CHOOSE ONE (E TO 
EXIT, ALL FOR ALL DIRECTORIES)";X$ 

460 IF X$="E" OR X$="e" THEN SYSTEM 
470 IF X$-"ALL" OR X$-”all" THEN GOTO 56 

P 

480 IF VAL(X$)>N OR VAL(X$)<1 THEN 450 
490 LOCATE 22,15:INPUT;"PRINT (Y/N)";LP$ 

:'PRINT OPTION 

500 IF X$="E" OR X$-"e" THEN SYSTEM :'EX 
IT 

510 IF X$-"ALL" OR X$-"all" THEN GOTO 56 
0 

520 M-VAL(X$):IF M>N THEN GOTO 450 
530 IF UD1$="Y" OR UDl$-"y" THEN GOTO 56 
0 ELSE LOCATE 23,15:INPUT;"UPDATE SORTED 
LISTING (Y/N)";UD$ 

540 IF UD$-"Y" OR UD$-''y" THEN GOSUB 810 
550 'PROMPT FOR FILE NAME OR PHRASE PP$ 

TO SEARCH FOR 

560 LOCATE 24,1:INPUT;"SEARCH FOR PHRASE 
(Y/N)";P$ 

570 IF P$-"Y" OR P$—"y" THEN LOCATE 24,1 
:PRINT STRING$(40," ");:LOCATE 24,1:INPU 
T"INPUT PHRASE(ALL CAPS)";PP$ 

580 'SEARCH DR FILES FOR SUBSTRING PP$ 

590 CLS 

600 IF X$="ALL" OR X$=''all" THEN GOTO 61 

0 ELSE GOTO 620 

610 FOR M=1 TO N 

620 OPEN "I", #1, GF$(M) 

630 FOR 1=1 TO 1000 
640 LINE INPUT #1, A$ 

650 IF I<3 THEN GOTO 720 

660 IF P$="Y" OR P$—"y'' THEN V=INSTR(A$, 

PP$);IF V>0 THEN 670 ELSE 700 

670 PRINT " "; A$,:IF I>5 THEN PRI 

NT FF$(M) ELSE PRINT 

680 K-K+l 

690 IF LP$="Y" OR LP$= "y" THEN LPRINT A 
$, FF$ (M):K-0 

700 IF EOF(l) THEN GOTO 730 

710 IF K>20 THEN LOCATE 25,1:BEEP:INPUT; 
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Pigskin 
Predictions! 
Pro Handicapper 

Tired of wrestling with Sunday 
point spreads? Let your Tandy 
1000/2000 do it for you! Pigskin 
Predictions, the best-selling NFL 
handicapper. takes the hassle 
out of rating National Football 
League games. Forget about ob¬ 
scure. meaningless statistics. 

Just spend a few minutes typing 
in each week s scores and let 
our point spread software go to 
work. Here's what Pigskin Pre¬ 
dictions has to offer: 

■ Predicts point spreads for all games-for the current 
week and the remainder of the season. 

■ Calculates projected won-lost records for all weeks. 

■ Menu-driven selection of schedules, ratings, division 
races, predictions or results by team or week. Seven differ¬ 
ent reports to screen or printer 1 

■ Maintains home field advantage and power ratings for 
all NFL teams. 

■ 1986 Schedule data file included free. Yearly updates 
available. 

Pigskin Predictions is only $39.95 on disk. Versions also 
available for Tandy Color Computer and Commodore 
64/128. Get your copy now and be ready for the season! 


The Handicapper 


Use your Tandy 1000, 1200, 2000 or Model 100/200 to 
improve your performance at the track 1 Separate programs 
for Thoroughbreds, Harness horses and Greyhounds rank 
the horses or dogs in each race quickly and easily, even if 
you've never handicapped before' 

All the information you need is readily available in the 
thoroughbred Racing Form, harness or dog track program. 
We even provide a chart showing you exactly where to get 
the information you need! Our software puts the savvy of a 
veteran handicapper at your fingertips. Our complete in¬ 
structions and wagering guide tell you how to bet. which 
races to bet and which ones to avoid—one of the real se¬ 
crets of winning at the track! 

Thoroughbred factors include speed, distance, past per¬ 
formance, weight, class, jockey's record, beaten favorite and 
post position Harness factors include speed, post position, 
driver's record, breaking tendencies, class, parked-out signs 
and beaten favorite. Greyhound factors include speed, past 
performance, maneuvering ability, favorite box. class, kennel 
record, beaten favorite and breaking ability. 

Thoroughbred, Harness and Greyhound programs are 
sold separately. Tandy 1000, 1200 and 2000 disk versions 
are $49.95 each, any two for $74.95. all three $99.95. Thor¬ 
oughbred and Harness only available for Model 100/200 on 
tape at $49.95 each, both for $79.95. 




Federal Hill Software 
8134 Scotts Level Rd. 
Baltimore, MD 21208 
Orders 800-628-2828 Ext. 850 
Information 301-521-4886 


"HIT ENTER TO CONTINUE" ; R$: K-0: CLS: LOCAT 
E 2,1 

720 NEXT I 

730 IF X$="ALL" OR X$-"all" THEN CLOSE:G 
0T0 750 

740 LOCATE 25,1:BEEP:INPUT;"HIT ENTER TO 
CONTINUE",R$:CLOSE:K-0;LOCATE 1,1:CLS 
750 IF X$-"ALL" OR X$-"all" THEN NEXT M 
760 IF X$-"ALL" OR X$-"all" THEN LOCATE 
25,1:BEEP:INPUT"HIT ENTER TO CONTINUE";R 
$ 

770 GOTO 350 
780 END 

790 'UPDATE SORTED DIRECTORY 
800 'CREATE STRING S$ WHICH CONTAINS DOS 
COMMAND TO CHANGE DIRECTORIES 
810 S $="CD\"+FF$(M) 

820 IF M-l THEN S$-”CD\" 

830 'EXECUTE DOS CHANGE DIRECTORY COMMAN 
D VIA SHELL WITHIN BASIC 
840 SHELL S$ 

850 'CREATE STRING S$ TO DO A DIR AND RE 
DIRECT THE CONTENTS FOR FILE XYZ 
860 S$-"DIR >XYZ." 

870 'EXECUTE DIRECTORY COMMAND 
880 SHELL S$ 

890 'CREATE STING TO SORT DIRECTORY FILE 
XYZ ALPHABETICALLY INTO FILE DR 
900 S$-"S0RT <XYZ. >DR." 

910 'DO SORTING 
920 SHELL S$ 

930 'KILL INTERMEDIATE FILE XYZ 
940 KILL"XYZ." 

950 'RETURN TO ROOT DIRECTORY 
960 SHELL "CD\" 

970 UD$-"" 

980 RETURN 

990 'DATA ENTRIES CONTAIN THE LIST OF DI 
RECTORY NAMES 

1000 DATA BASIC,BC0MP2,CIRCLEW,COCOUTIL, 

DESKMATE,FINANCE,FLY,FORT,LORIE.QUBIE,RT 

TY,UTILITY,WP 

1010 DATA STOPIT 

1020 'SORT DIRECTORY NAMES 

1030 FOR 1-2 TO N-l 

1040 FOR J-I+l TO N 

1050 IF FF$(I)< FF$(J) THEN 1070 

1060 T$-FF$(J);FF$(J)-FF$(I):FF$(I)=T$ 

1070 NEXT J 
1080 NEXT I 
1090 RETURN 

mmmmmmmmmmammmsmmm 

mmmmmmmmmsmmM 

mmmmmmmmmsmm 
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Feature 


Th is $5 
hardware project 
brings new life 


Joystick 

Reincarnation 


to old joysticks 


By Brian H. Alsop 



buttons 


lder joysticks have 
only one button. 
Many software 
programs appear¬ 
ing on the market 
today require two 
joystick. BASIC can also 


access two buttons. What do you do 



if you have older joysticks with only 
one? Reincarnation is the answer. This 
article describes how to modify older, 
single-button joysticks to make them 
functionally equivalent to newer mod¬ 
els. The cost is under $5. These mod¬ 
ifications specifically apply to the 
Tandy 1000 and Radio Shack’s 26- 
3008 joysticks. However, the idea can 
be applied to other joysticks by sub¬ 
stitution of appropriate connectors. 

Modification 

My joysticks are from early Tandy 
Color Computer days. They func¬ 
tioned correctly with the Tandy 1000 
but didn’t have the extra button. I 
priced the new joysticks and decided 
instead to modify the old ones. The 
modification turned out to be quite 
easy. 

The Tandy 1000 button and joystick 
circuitry are shown in Figure 1. The 
buttons simply ground a pin of the 
connector. This means the modifica¬ 
tion only requires adding a button, 
one wire and possibly a six-pin DIN 
plug. 

The parts needed are a six-pin DIN 
plug (Radio Shack #274-020); a 
normally-open, momentary pushbut¬ 
ton switch (Radio Shack #275-1547); 
a piece of wire about six inches longer 
than the joystick cable; and some tape. 

Proceed with the modification as 
follows. Refer to Figure 2 for gui¬ 
dance. The modification is far easier 
to do than to describe. 

1. Loosen the two screws holding 
joystick case together. Remove the top 
section. 


Brian Alsop is an engineer working on 
introducing personal computers into 
the engineering work environment. He 
is a pilot and holds an amateur radio 
operator s license. 
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3.5" MICRO FLOPPY DRIVE 
Purple Computing Model D103 

$229 with TS-DOS software for 
Model 100/200 , NEC PC 8201A 

$259 with LAPDOS software for 
the IBM PC/XT/A T 

$299 with both 
LAPDOS and TS-DOS 


At 28 ounces and the size of a Model 
100 , this disk drive is totally portable. 
The four size “AA” batteries inside, 
power the drive for 2 + hours of 
continuous reading/writing at over 2,000 
char./sec. (19,200-baud). Fast random 
file access to 102,400 bytes means no 
more waiting for cassettes. The best part 
is the software—you get your choice of 
either TS-DOS for the Model 100/200 & 
NEC PC-8201, or LAPDOS for the IBM. 

For one price we send you everything 
you need to start using the disk. Even 
an A/C adaptor (saves batteries when 
A/C is handy). pP^ 

COMPLETELY COMPATIBLE! 

The disks, formats, data, and everything 
else are completely compatible and 
interchangable with the TANDY portable 
disk drive. 


LAPDOS consists of a 5.5” diskette for 
your IBM PC/XT/AT, manual, and 
special cable adaptor which lets you 
hook our Model D103 drive to your 
IBM’s serial port. LAP-DOS supports file 
conversion between: T-BASEoDBASE II 
and IDEAoThinkTank, and can run 
RAM resident! 

M $99 PRINTER 
MADE FOR TRAVEL 

SIZE and WEIGHT are the most 
important considerations when going 
portable. This printer is half the size of 
the Model-100 and weighs less. Now 
there’s no reason not to have a hard 
copy printout wherever you are. 

FEATURES 

• 2.2 lbs., size 11” x 4 Vi” x 1 3 A”. 

• Epson MX/80 bit-map. graphics. 

• Built-in auto self test function. 
8 V 2 ” wide thermal paper. 

• Excellent User’s Manual. 

• 40/80/160 chars./line. 

• 512 byte text buffer. 

• 40 chars./sec. 

RUGGED 

Because it’s thermal, there are no 
ribbons, no ink, no pins to wear out or 
replace, all you need to take 
with you is 


paper. Prints over two hours on internal 
batteries and is designed to print over 
300,000 lines without maintenance—that’s 
25 pages every week for over four years! 

DIRECT TO YOU 

H igh volume and no middle man means 
low price. We buy direct from the 
Japanese manufacturer in large quantities 
for our corporate accounts (NBC, 

Pan Am, National Geographic . . . ), 
that’s why we can offer it direct to you at 
this fantastic price, yet still give you 
great service and support. 

SUPPORT 

We stock paper (rolls and sheets), cables, 
and accessories for the printer. A 
complete accessory kit is only $24 and 
includes a carrying case, a 100 ’ roll of 
paper, and the hard-to-find 6 VDC @ 

1.1 Amp. A/C adaptor (saves batteries 
when A/C is handy). 

$99 GRAND TOTAL 

You get the printer and a specially made 
18” cable for your Model 100/200/600 
or NEC PC-8201A/8401, a 20’ roll of 
paper, paper holder, and four “C” size 
batteries—everything you need to start 
printing immediately. 


TS-DOS on 3 V 2 ” diskette for your 
portable, lets you save and load files with 
a single key, or save/load all files at 
once; append files to create one file up 
to 64K; display or print files directly 
from disk; access disk files directly from 
BASIC using OPEN, PRINT #, INPUT #, 
...; occupies only 500 bytes when not in 
use and requires under 5K to run. TS- 
DOS is supported by ULTIMATE ROM II. 


(ACTUAL print sample) 

80 Cbars / Line? 40 LPS ‘ 

E n 1 a r g e d \ 
u.nder 1 1 ne d Emphasized! 
CONDEHSEO gives you 160 chars, per line ! 



















EXPANSIONS!!! 


NOT “ALL THE SAME ” 

The memory expansion products sold by 
us, our dealers, and distributors are 
made by us—here in the U.S.A. We have 
been making them since 1983 and have 
more than 50,000 memory expansion 
units in service worldwide—our dealers 
and customers tell us ours are the best. 
You could spend less or you could spend 
more, but you won't find a better 
combination of price, quality, and service 
than you will from Purple Computing, or 
one of our dealers. 




TANDY 200 
24K Memory Module 
' ea. or two for $130 


TANDY 600 
96K Memory Unit 
$249—two for $469 
Designed as an alternative to the 
expansion board that TANDY offers. 
Functionally identical and easy to install 
with our complete and detailed 
documentation—just open the case and 
plug it in. The basic TANDY 600 
machine will accept two of these boards, 
bringing its internal memory up to 224K 
(contiguous). 



MODEL 100 or NEC PC 8201A 
8K Memory Module 

$29 ea., 3 for $79, 6 for $149 
Easy to install. Open the case and plug- 
them-in. Each module expands your 
memory by 8K bytes. Extra low power 
components mean long battery life. Very 
low profile means a proper fit in the 
NEC PC-8201A. Detailed instructions 
make installation quick and easy. You can 
expand your Model 100 to 32K and your 
PC-8201 to 64K (2 banks of 32K each). 


$75 i 


WELL BEAT ANY advertised price 
in this magazine on the 24K Module. 

Simply pop open the hatch with a coin 
and plug in one or two of these modules. 
Each module adds a 24K bank of 
memory to the TANDY 200. It’s like 
getting two more machines. The built in 
COPY function key copies files between 
banks instantly. Like our 8K, we build 
these with the lowest power and most 
reliable niemory chips available. 

\NEC PC 8201A 
128K RAM CARTRIDGE 
THE SIDECAR 
$259 

Plugs into side expansion slot providing 
four additional banks of 32K each. The 
case conforms to the shape of the 8201 
extending its width only 2 l A inches. An 
internal battery backs up the memory for 
over seven years. 4 

\STARLET (NEC PC-8401A) 
128K RAM DISK CARTRIDGE 
THE SIDESTAR 
$399 

Plugs into the side expansion slot 
providing a 128K RAM DISK that is 
formatted! and used by the STARLET 
just like a( floppy disk drive—except it’s 
hundreds of times faster, and you don't 
need a drive, cables or A/C power. Lets 
you use 64K mode and run larger 
programs like DBASE II. The expansion 
connector lets you copy large files (up to 
124K) between disk and SIDESTAR 
using NEC Disk/Video interface. An 
internal battery backs up memory for 
over seven years. 

When you order, ask for the CP/M 
utilities and we will load them into your 
SIDESTAIR at no extra charge. (Includes 
DDT, ED, ASM, LOAD . . . ) 


A H p ^ 

THE PURPLE POLICY 

Try any of our products for 30 days, 
satisfy yourself that our service, quality, 
and prices add up to the best value 
anywhere—if not completely satisfied, 
you can return the product for a full 
refund. Join our (over 20,000) satisfied 
customers. All prices include free UPS 
surface shipping, and there are no 
surcharges for VISA/MC/American 
Express—even the phone call is free. 

ITS EASY TO ORDER 

Send your order with payment to the 
address below. Or, if you prefer, credit 
card orders can be handled by 
phone—VISA, MasterCard, and 
American Express are welcome. 
California residents add 6% sales tax. 
Checks allow 3 weeks to clear. 
Institutions and Corporations call for 
purchase order approval. 

\ 1-800- 732-5012 TOLL FREE 

Orders only (8am.-5pm. PST) 

In California (805) 987-4788 
For orders or customer service 

If you would like our latest product 
catalog or to find a dealer near you, 
please write or call (805) 9874788 


fi& COMPUTING 

420 Constitution Ave. 

Camarillo, CA 93010 
Telex: 888661 (PURPLE) 

Canada: Canada Portable Computer, 

Langley, B.C. (604) 856^858 

Australia: Softech Computer Services, 

Sydney. (2) 419-8899 

Trademarks: TS-DOS, LAPDOS, ULTIMATE ROM, IDEA!, 
T-base, T-Writer—Traveling Software, Inc.. 

ThinkTank—Living Videotext, Inc., DBASE II—Ashton Tate., 
CP/M, DDT, ED, ASM, LOAD-Digital Research Inc. 












2. Drill a hole to accommodate the 
pushbutton in the upper left-hand 
corner on the plastic top section. Drill 
it about % inches in from the top and 
left-hand sides. 

3. Solder a three-inch piece of wire 
to one pushbutton terminal. Strip the 
other end. 

4. Solder the long wire (which will 
go to the plug) to the the other button 
terminal. 

5. Install the button in the top 
section. 

6. Solder the short button wire to 
the solder lug having the black wire 
attached. This black ground wire is 
attached to DIN Plug 3. It may be 
some other color for other joysticks. 

7. Carefully route the long wire 
through the existing cable exit. 

8. Close the case and secure the 
screws. Make sure the joystick doesn’t 
bind. 

9. Tape the wire along the existing 
cable every three or four inches. 

10. Disassemble the DIN connector 
by prying up the locking finger and 
pulling the casing back. 

11. If your joystick already has a six- 
pin DIN connector, solder the added 
wire to the center pin. Trim off excess 
wire before soldering. The center pin 
is labeled Pin 6. Reassemble the con¬ 
nector. Follow steps 12-14 if you have 
only a five-pin DIN connector. 

12. Unsolder all wires. Keep track of 
which wire went to which pin. In my 
case, pins 1-5 had wires colored yel¬ 
low, green, white, black and red, 
respectively. 


Figure 1, Joystick Circuitry 


+5 VOLTS 


PLUG 

PIN 


RIGHT/LEFT 


PUSHBUTTON 2 

T ADDED 


-*• *- 


PUSHBUTTON 1 

—X— 


-+ +- 


GROUND 


UP/DOWN 



6-PIN 
DIN PLUG 

(WIRE SIDE) 


LONESTAR SOFTWARE PROUDLY PRESENTS 



MENU 

o > eoi 
E 1 •=■■“■ 
Y > xt 
C > i r 
o > pt 
Qu i t 


UFT> C Load Save Print 3 


■2 


mm 


CREATE 
YOUR OWN 
BANNERS, LOGOS, 
GRAPHS, CHARTS, 
AND MORE! 


AN INTERACTIVE GF^APHICS EDITOR 
EOR THE MODEE 1 OO 2 4 K 


FEATURES: 

♦user friendly ♦sketch mode 

♦on screen menu ♦stretchable rectangle 

♦cursor control ♦stretchable segments 

♦SAVEABLE DISPLAY ♦CIRCLE OPTIONS 
♦PRINT OPTION ♦angle LOCKS 

♦TEXT EDITOR ♦FILL PATTERNS 

♦FAST MACHINE CODE ♦CONSTANT X,Y READOUT 

“Coming soon for the MODEL 200! 


$4 9.95 


To order call: 1-800-835-2246 ext.298 
In Kansas 1-800-362-2421 ext.298 
VISA & MASTERCARDS WELCOME 


LONESTAR SOFTWARE 
& IC DESIGN CO. HOUSTON,TEXAS 


28 pcm 


July 1986 



















































13. Remove the old plastic casing 
from the cable. Slide on the new casing 
and route the extra wire through it. 

14. Solder the extra wire to the 
central pin (Pin 6). Then, solder on the 
remaining wires to the correct pins. 
Reassemble the connector. 

The correct button operation can be 
tested with an ohmmeter or the pro¬ 
gram shown in Listing 1. If you use an 
ohmmeter, depress the new switch and 
check for a short circuit between pins 
3 and 6. Open the switch and see that 
an open circuit condition exists. If you 
use Listing 1, insert the joystick into 
the left or right port and run the BASIC 
program. Depress the added button. 
The status for button two should 
change from “off” to “on.” If it does 
not, look and see if any of the other 
joystick readings seem funny. If the 
left-right or up-down readings don’t 
vary between about two and 120, 
chances are that you have wired the 
plug incorrectly. Disassemble the plug 
and look for loose wires or shorted 
wires. If you have another unmodified 
joystick, use it as a guide for proper 
wiring. □ 



The listing: 


1# ’Joystick Tester Program 
20 KEY OFF:CLS 

30 LOCATE 3,33:PRINT "RIGHT JOYSTICK" 

40 X=5:GOSUB 90 

50 LOCATE 8,33:PRINT "LEFT JOYSTICK" 

60 X=ll:GOSUB 90 
70 F$="###" 

80 GOSUB 140:GOTO 80 
90 LOCATE X,10:PRINT"BUTTON 1 IS "; 

100 LOCATE X,27:PRINT"BUTTON 2 IS 
110 LOCATE X,45:PRINT"L/R="; 

120 LOCATE X,60:PRINT"U/D="; 

130 RETURN 
140 STRIG ON 

150 LOCATE 25,1:PRINT"HIT ANY KEY TO EXI 
T" 

160 A1=STRIG(1):B1=STRIG(3):A2=STRIG(5): 
B2=STRIG(7) 


170 IF A1=0 THEN Al$="OFF" ELSE Al$=" ON 

II 

180 IF A2=0 THEN A2$="0FF" ELSE A2$=" ON 

II 

190 IF B1=0 THEN Bl$="OFF" ELSE Bl$=" ON 

II 

200 IF B2=0 THEN B2$="OFF" ELSE B2$=" ON 

II 

210 LOCATE 5,22,0:PRINT Bl$::LOCATE 5,39 
:PRINT B2$; 

220 LOCATE 11,22:PRINT Al$;:LOCATE 11,39 
:PRINT A2$; 

230 LR1=STICK(0):UD1=STICK(1):LR2=STICK( 
2):UD2=STICK(3) 

240 LOCATE 5,49:PRINT USING F$;LR1;:L0CA 
TE 5,64:PRINT USING F$;UD1; 

250 LOCATE 11,49:PRINT USING F$;LR2;:LOC 
ATE 11,64:PRINT USING F$;UD2; 

260 FOR 1=1 TO 100: A$=INKEY$ : IF A$0"" T 
HEN END ELSE NEXT I 
270 RETURN 

ssa 
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Feature 


100/200 


A New Approach 
to Model 100 Binary 
File Exchange 


By Marty Goodman and 
Frank Oechsly 


club meetings it often 
happens that Model 100 
owners want to share files 
with each other. It is relatively easy to 
use a null modem cable to link the RS- 
232 ports of the two computers and the 
built-in software in the Model 100 to 
exchange text (-D0) files. This can be 
accomplished using either Telcom or 
directly from the Text program itself. 
In the former case, one merely sets up 
one computer to transmit and the 
other to receive the file. In the latter 
case, one first types on one computer 
L0AD"C0M:8BI1E and on the other 
SAVE "C0M88I1E. This saves the text 
file in one computer via the RS-232 
port into the currently opened text file 
area of the Text program of the other 
computer. 

If you wish to exchange tokenized 

Martin H. Goodman, M.D., a physi¬ 
cian trained in anesthesiology, is a 
longtime electronics tinkerer. He is the 
database manager of rainbow’s CoCo 
SIG on Delphi. 


Frank Oechsly is the author of a Cali¬ 
fornia Model 1001 NEC 8201 newsletter 
and enjoys working with portable com¬ 
puters. 
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BASIC program (.BA) files, the ap¬ 
proach is a little more complex. You 
must first convert the -BA file into a 
. DO file by loading it into BASIC, then 
saving it out again with the A option 
(SAVE "FNAME", A). This places a copy 
of the program in ASCII text form in 
the memory of the computer. Now you 
can transmit this ASCII (.DO) version 
of the BASIC program over to the other 
computer using the methods pre¬ 
viously discussed. 

The Problem with Binary Files 

Binary (-00) files present further 
problems. The Model 100 built-in 
software system is not well set up for 
exchanging those files. There are 
various utilities circulating that con¬ 
vert binary files to and from ASCII 
form (Intel Hex conversions are good 
for this). Once in Intel Hex or some 
similar ASCII form, the file can be 
transmitted via null modem. 

But in this case both parties need 
extra software in their Model 100. 
While such utilities are written in 
BASIC and can be transferred them¬ 
selves, if both parties do not have them 
in their machines at the start, the file 
transfer process becomes a cumber¬ 
some matter of “ASClI-fying” two 


BASIC programs, transmitting them, 
converting, then ASCIl-fying the . CO 
program, transmitting it, and finally 
converting it. I’ve used this technique 
and it works, but it is a hassle. 

The Technique 

In such cases it was often faster to 
save the file to cassette tape, then 
reload the file into the other machine. 

I wondered, why not send the cassette 
signal directly from one machine to 
another? Frank Oechsly (author of the 
local M100/NEC 8201 newsletter) and 
1 decided to try this out. Our first 
experiments with such transmission 
failed, because the amplitude of the 
signal coming out of the M100 was a 
bit too low for the Ml00 cassette 
signal input on the other side. 

We bought a speaker / amplifier unit 
(Radio Shack cat. no. 277-1008). 
Running the output (black, '/g-inch 
jack on cassette cable) of the sending 
Ml00 into the input of amplifier, and 
the output of the amplifier into the 
input of the receiving computer (gray 
'/g-inch jack on cassette cable) we 
found transmission worked, but was 
unreliable because, even with the 
volume all the way down, the signal 
strength was too high. 
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We put a 150-ohm resistor in parallel 
with the input to the speaker/amplifier 
unit, attenuating the input signal. With 
this resistor added, direct transmission 
between Model 100s was flawless on all 
attempts with the volume on the ampli¬ 
fier box set in the low region. 

Note that the speaker amplifier unit 
has two sockets that fit the /s-inch 
phono jacks at the ends of the Ml00 
cassette cable. This technique allows 
more direct transfer of BASIC programs, 
as one can send the tokenized BASIC 
program directly from the memory of 
one computer to the other without first 
putting it in ASCII. 


Discussion 

Transmission via the cassette port 
takes place at an average of 1,500 
Baud. It also includes error checking, 
so if an error is detected by the receiv¬ 
ing computer, the transmission is 
terminated. Note that this is only error 
checking and (unlike XMODEM) not 
associated with error correcting. All 
the receiving computer does is cancel 
the transmission if it detects an error. 

While you can use this technique for 
transferring text files as well, by saving 


the Model 100s, this becomes very 
inefficient. The null modem RS-232 is 
far superior because it works reliably 
at 9,600 Baud. Using the cassette port 
for text file transfer, you are not only 
tied to 1,500 Baud, but the file is 
transmitted with gaps between blocks 
of data. This approach makes the data 
recoverable from partly damaged 
tapes, but slows machine-to-machine 
transmission. 

Try It Yourself 

All you need is the Radio Shack 
speaker/amplifier, two Model 100s, 
two cassette cables, a 150-ohm resis- 
tor, a !4-inch mini-phono plug and l /$- 
inch mono-mini socket. Make a little 
adaptor cable with the resistor sol¬ 
dered between input and ground on 
that cable. This will let you take the 
resistor in and out of the circuit as 
needed. 

Connect the black plug from the 
receiving computer to one adaptor 
socket that has the 150-ohm resistor 
going to ground, and put the plug on 
the other side into the input jack of the 
speaker amplifier. Plug the gray jack 
from the receiving computer into the 


□ 


MS1C BUaNESS 

Accounting and Business Management Software 


Advanced Color 

N ever again wonder what to do next, or 
how to do it Basic Business is the only 
advanced accounting system that provides a 
complete windowed help and index system. 
Answers to your questions are as close as the 
touch of a key. 

Not another cigar box system, Basic Business 
II offers features equivalent to those found in 
systems costing hundreds more. Accounting 
has never been easier or more complete. 

Need less help? Considere the popular Basic 
Business I. It has most of the features found in 
Basic Business II without the windows and 
help, and is upward compatible should your 
needs change. 

Consider the flexibility of Basic Business. You 
can generate over 300 reports or use the optional 
dBase File Formats for ultimate information 
gathering and reporting. Transfer information 
to a database or spreadsheet program for total 
custom reporting ability. Source code is also 
available for those companies requiring 
customization or having specialized accounting 
needs. & 

Hardware Requirements: 80 X 24 CRT 
column printer, 64K CP/M 2.x. I28K 
MS-DOS or PC-DOS 2.0, PC/XT/AT or compatible. 

30 day money back guarantee if all claims and features listed in 
.^MasterCard and VISA welcome. Add 
$2.50 for shipping. CA residents add 6% sales tax. 

Optional Products 
Point-of-purchase Module... $99.95 
dBASE 11/111 File Formats... $ 29.95 

some disk formats slightly higher 


On-Screen-Help Windows 

with computerized indexing into the users manual 


output jack of the speaker amplifier. 
Set the volume control to just a little 
beyond the “on” position. 

When the computers are connected 
via this null cassette modem, first go 
to BASIC and give the receiving com¬ 
puter the CL0ADM command if you 
want to receive a binary machine 
language program file, or give it the 
CLOAD command if you want to receive 
a tokenized basic program. It will 
wait for a signal. On the sending 
computer, first LOADM or LOAD the . CO 
or . BA file you want to transfer, then 
use the CSAVEM or CSAVE command to 
initiate transmission. Note that you 
must provide the needed addresses for 
start, end and execute if you are 
sending a .CO file. These addresses are 
displayed at the time you LOADM such 
a file. 

When you start transmission, the 
receiving computer is fooled into 
thinking the signal is coming from a 
cassette recorder and CLOADs or 
CLOADMs the program just as if it were 
getting the program from the cassette 
recorder. After transmission is com¬ 
pleted, you must SAVE or SAVEM the 
received file to put it into the directory 
on the receiving machine. | | 


Basic Business II 

MS-DOS or PC-DOS 

Basic Business I * * 1 A A os 

MS-DOS, PC-DOS or CP/M * 1 *| Y 


General Information 

• All modules are menu driven / password protected 

• Unlimited data entry in all modules 

• Prints hundreds of detailed management reports 

• Superior documentation for ease of use 

• Stock or preprinted forms available 

• Supports user defined notes / comments on all forms 

• All modules completely integrated 

Genera] Ledger 

• Unlimited user defined Chart of Accounts 

• Prints all standard financial reports 

• Up to 99 user-defined departments 

Accounts Receivable & Billing 

• Open item or balance forward 

• Verifies customer credit limit at invoice entry 

• Supports service or inventory billing 

• Prepares customer statements with dunning notes 

• Maintains full cash flow analysis 

• Prepares mailing labels and customer lists 

Accounts Payable 

• Cash disbursement management for all vendors 

• Supports hand written checks 

• Automatically posts recurring invoices monthly 

• User defined aging periods 

• Prints vendor mailing labels and lists 

Payroll & Job Costing 

• Supports labor related job costing 

• Maintains federal, state and local tax tables 

• Handles vacation and sick leave time 

• Prints W-2 forms and 941 information 


PARTIAL LIST OF FEATURES 

Inventory 


Trademarks: CP/M - t>RI; dBASE - Ashton-Tate- 

MS-DOS - Microsoft; PC-DOS - IBM 


Up to 12 digit alphanumeric part numbering 

• Supports standard / average / suggested resale costing methods 

• Integrated with Sales and Purchase Order systems 

Purchase Order 

• Maintains PO and Inventory files 

• Prints confirming POs 

• Prints price variance report by part number 

• Maintains vendor purchase history 

Order Entry & Sales Analysis 

• Supports ordering and shipment of stock and non-stock items 

• Handles partial shipments / cancellations / changes of any SO 

• Automatic credit checking during SO entry / invoicing / billing 

• Provides extensive sales analysis reporting 

• Maintains MTD billing and booking totals 

• Line item/total invoice discounts during SO entry and/ or invoicing 
Point of Purchase (optional) 

• Entry of invoices posts to all pertinent modules 

• Invoices stock / non-stock items 

• Line item discount and tax application 

• Verifies customer credit limits 

• Supports cash / check/credit card / payment on account and returns 

• Controls electronic cash drawer 


CALL TODAY Nitionj>1 ( 800 ) 821-8778 
California ( 800 ) 521-7182 

Hours: Mon - Fri 8 am - S pm PDT 

DEALER INQUIRIES WELCOME. 


f /l aduenfc, 

' 8 1 products inc 


3154-FE La Palma Ava 
Anaheim. CA 92806 
(714)630 0446 































NEW! MODEL 100 3-in-1 ROM 

Interactive Solutions 

All the software that you will ever need 
on the Model 100 Portable: 

i- Data Base 

2— Spreadsheet 

3 — Word Processor 
with Mail Merge 

Now on a plug-in ROM. Integrated and easy as 1-2-3! 



■ The Data Base turns your Mod 100 into a per- 
sonal filing system. You can store, examine, update 
select, sort and list a wide variety of information - 
from personnel records and inventory facts to 
appointment schedules and client lists. 

■ The Spreadsheet turns your Mod 100 into a 
powerful decision tool. It is a full featured spread¬ 
sheet with 99x99 cells and provides fast decimal 
arithmetic in formula computation with complete 
range of scientific functions. 

■ The Word Processor uses the Text editor of 
Mod 100 and gives you additional features for 
formatting and printing. You can set margins, line/ 
para spacing, justify, define header/footer and use 
special print features like underline, boldface, etc. 

MORE MEMORY Interactive Solutions does not 
occupy RAM memory, so frees your precious RAM 
for larger data files. 

EXTRA CONVENIENCE Interactive Solutions 
plugs in the optional ROM socket. It is always resi¬ 
dent and ready to work. You don t need to load 
programs from cassette recorder any more. 

♦Copyright DCM Data Products, Licensed to Tandy Corporation. 

" Registered trademark of Tandy Corporation. 


Interactive Solutions integrates all of your data 
information in Mod 100. With a touch of a func¬ 
tion key, you can easily: 

• Select and move items from Data Base files 
into Spreadsheet columns. 

• Generate a report in Data Base program 
and move to the Word Processor. 

• Cut any part of Spreadsheet and move to the 

Word Processor. 

• Merge the items (like names, addresses) from 
Data Base files into a Form Letter and 
generate multiple letters or labels. 

All this and much more in 
a 32 K bytes ROM from 


DCM Data Products 
1710, Two Tandy Center 
Fort Worth, Tx. 76102 
Tel: 817/390-2762 


□BCD 

data products! 0 


Radio Shack and Model 100 are trademarks of Tandy Corporation. 
1-2-3 is a trademark of Lolus Corporation. 
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3-0 Sounds on the 
Tandy 1000 

By Robert W. Keefe 


, is difficult to find fault 
JL with Turbo PASCAL from 
Borland International. 
It’s easy to use, a great 
editor, provides painless 
I debugging plus has ex¬ 
tensions to the language to increase 
flexibility. But, when using Turbo on 



the Tandy 1000, there is one slight 
difficulty. Some of the nicer features of 
the Tandy 1000 are not easily accessed. 
Turbo thinks it is running on an IBM 
PC and, therefore, does not recognize 
the existence of some of the extensions 
to the IBM standard provided by the 
Tandy 1000. This article deals with one 
facet of this problem. 

The Sound and NoSound statements 
provided by Turbo generate fixed am¬ 
plitude signals, one frequency at a time, 
via an 8253 counter. There is no direct 
means of accessing the 76496 complex 
sound generator in the Tandy 1000. This 
complex sound generator gives the 
Tandy 1000 the ability to produce three 
independent sound channels, each with 
its own frequency and amplitude level. 
In addition, it provides another channel 
for noise generation. 

The wizards at Borland have, how¬ 
ever, provided us with an indirect means 
of utilizing these resources. Turbo" s 
Port array gives us access to all of the 
I/O ports and, thereby, entry into the 
Tandy’s hardware inner sanctum. The 
complex sound generator may be pro¬ 
grammed by writing data to one of these 
I/O ports (S00C0). The listing for 
Sound-1 K.inc, which contains a group 
of procedures that use this method to 
fully utilize the sound capabilities of the 
Tandy IK, is at the end of this article. 

First, a few words about the 76496. 
This device is a programmable tone/ 
noise generator capable of producing 
four sound channels simultaneously: 
three musical tones and one noise. The 

Robert Keefe is the father offive daugh¬ 
ters and is retired from a local power 
company where he was a lineman for 30 
years. He is a hobbyist with a long¬ 
standing interest in all forms of elec¬ 
tronics. Robert may be contacted at 644 
Penning Avenue , Wood River , IL 
62095, (618) 254-9767. (Please enclose 
an SASE when writing.) 
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Take off with a Tandy portable 
and have real computing power 
wherever you traveL 


Great traveling companions 

Whether you’re a business- 
person, journalist, police officer 
or student, you can’t afford idle 
time. Our affordable Model 100, 
Tandy 200, and Tandy 600 porta¬ 
ble computers are invaluable 
tools that help keep you on top 
of your work wherever you go. 

Computing power for less 

The popular Model 100 
(26-3802) is perfect for writing 
letters, reports and other corre¬ 
spondence anywhere, at any 
time. Or use the 100 as your 
personal appointment calendar 
and name/address and phone di¬ 
rectory. This lightweight com¬ 
puter was the first to feature five 
instant-on programs, as well as a 
40 X 8 display—all built in. 



At only $499, this powerful 
little traveler offers you more 
options than you thought 
possible—including a built-in 
modem and a communications 
program that lets you access 
other computers or national in¬ 
formation services by phone. 
You can even write your own 
programs in BASIC. 

Powerful portability 

The $799 Tandy 200 repre¬ 
sents a true second generation 
in portable computers. Not only 
does it come with its own built- 


in software, improved features, 
a bigger 40 x 16 fliptop screen, 
and a larger memory, but it 
weighs only 4 'Iz pounds. 

Plus, the Tandy 200 (26-3860) 
comes with powerful Multiplan® 
spreadsheet analysis built right 
into the memory. You can do 
complex spreadsheet calcula¬ 
tions at the touch of a key. An¬ 
swer thousands of “what if. . . ?” 
questions instantly. 



Our most advanced laptop 

The high-performance Tandy 
600 (26-3901) features a 16-bit 
microprocessor, an 80 X 16 dis¬ 
play, a built-in disk drive 
that stores 360K of data, and 
32K RAM (expandable to 224K). 

At $1599, the Tandy 600 
also includes five resident 
applications—all designed by 
Microsoft for anyone who’s al¬ 
ways on the go. With the Tandy 
600’s larger display and ex¬ 
panded memory, Multiplan can 
handle more information. 

Using MS-Word®, you’ll also 
have quicker access to docu¬ 
ments and more storage capacity 
with the built-in disk drive. File 
is an electronic database for 
names and addresses, expenses, 
client billing and more. With the 


Telecom program and the Tandy 
600’s built-in modem, you can 
keep in touch over phone lines. 



Don’t leave the office 
without one 

Tandy offers you a choice of 
three portable computers—one 
is sure to fit your needs. See 
them all at your local Radio 
Shack Computer Center! 


Available at over 1200 
Radio Shack Computer Centers and at 
participating Radio Shack stores and dealers. 

Radio /hack 

COMPUTER CENTERS 

A DIVISION OF TANDY CORPORATION 


r 

i 


Send me an RSC-16 
Computer Catalog. 

Radio Shack, Dept. 87-A-16 
300 One Tandy Center m 

Fort Worth, TX 76102 


I 

H 

1 


Name. 


Address _ 
City_ 


State. 
ZIP_ 


Phone_ 
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Prices apply at Radio Shack Computer Centers and participating stores and dealers. Multiplan and MS-Word/Registered TM Microsoft Corp. 





































amplitude of each channel may be set 
independently. Programming is ac¬ 
complished by sending data, via I/O 
port $00C0, to data lines (eight bits 
wide) on the 76496. This data is then 
routed to one of eight registers on the 
76496. 

Addressing these internal registers is 
a bit tricky. If you are interested in 
details, consult the Tandy 1000 Techni¬ 
cal Reference Manual or the Texas 
Instrument Data Sheet for this device. 

Look at the first procedure in the 
listing, Set_Freq. This procedure ac¬ 
cepts two arguments, Channel and 
Freq. The first, Channel (which must be 
in the range of one to three), is used to 
select which of the three tone channels 
is to be set. The second, Freq (which 
must be in the range of 110 to Maxlnt), 
is used to set the frequency of the 
channel. 

The channel frequency is determined 
by a 10-bit divisor (Divisor) that this 
procedure sends to the appropriate 


register on the complex sound genera¬ 

tor. Since the data bus is only eight bits 
wide, it is necessary to send two bytes 
sequentially (Bytel and Byte2). Bytel 
contains the register address and the 
low-order nibble of Divisor. Byte2 
contains the remaining six significant 
bits of Divisor. 

The second procedure in the listing, 
Set-Volume, provides for control of the 
amplitude of the three tone channels 
and of the noise channel. Set-Volume 
accepts two arguments. The first, Chan¬ 
nel (which must be in the range of one 
to four), is used to select which of the 
three tone channels is to be set. The 
second, Vol (which must be in the range 
of zero to 15), is used to set the ampli¬ 
tude of the selected channel. For max¬ 
imum output, set Vol = 0; for minimum 
output, set Vol = 15. This procedure 
then sends the necessary data to the 
appropriate register on the 76496. 

The third procedure, Set_Noise, is 
used to control the noise channel on the 


76496. Set Noise accepts two argu¬ 

ments. “Kind” selects the type of noise 
to be sounded. If Kind = 0, the output 
is an impulse-type noise; if Kind = 1, the 
output is a white noise. “Vol” is used to 
set the amplitude (as in Set-Volume). 
The pitch of the noise may be varied by 
changing the frequency of tone channel 
3. 

The last two procedures in Sound 
_/ K.inc are Chord and Soundoff. 
Chord is used to produce a three-note 
musical chord and accepts three fre¬ 
quencies and three volume levels as 
arguments. Soundoff mutes all four 
channels. Don’t forget this one — this 
procedure is necessary to turn off the 
sound output, which, if not silenced, 
continues until the system is reset or the 
power is turned off. 

Also included is a short demo pro¬ 
gram to try out these routines. So, there 
you have it: sound in its full glory on 
your Tandy 1000! I will leave it to you 
to develop a full-fledged song-playing 
program. ^ 



Listing 1: 

(...) 

Procedure Set_Freq(Chaimel:Byte; Freq:Integer); 

Const 

PortAddr - $00C0; 

RegAddr :Array[1..3] of Byte -($80 , SA0, $C0) ; 

Var 

Bytel,Byte2 : Byte; 

Divisor : Integer; 

Begin 

If Freq < 110 Then Freq Maxint; 

Divisor Trunc(223688.0/Freq); 

Bytel RegAddr[Channel] +(Divisor And $000F); 

Byte2 (Divisor And $03F0) SHR 4; 

Port(PortAddr] Bytel; 

Port[PortAddr] Byte2; 

End; (Set_Freq) 


(...) 

Procedure Set__Volume(Channel,Vol:Byte) ; 

Const 

PortAddr - $0000; 

RegAddr : Array[1..4] of Byte -($90,$B0,$D0,$F0); 
Var 

Bite : Byte; 

Begin 

Bite (Vol And $0F) Or RegAddr[Channel]; 

Port[PortAddr] Bite; 

End; (Set_Volume) 



Procedure Set^Noise(Kind,Vol:Byte); 
Const 

PortAddr - $00C0; 

VolRegAddr - $F0; 

TypeRegaddr - $E0; 

Var 

Bytel : Byte; 


Bytel TypeRegAddr + ((Kind And $01) SHL 2) + $03, 
Port(PortAddr] Bytel; 

Bytel VolRegAddr + (Vol And $0F); 


Port(PortAddr] Bytel; 
End; (Setjtoise) 


(...) 

Procedure Chord(Freql ,Freq2,Freq3 : Integer; 

Voll ,Vol2,Vol3 : Byte); 

Begin (Chord) 

Set_Freq(l,Freql); 

Set_Volume(1,Voll); 

Set_Freq(2,Freq2); 

Set_Volume(2,Vol2); 

Set_Freq(3,Freq3); 

Set_Volume(3,Vol3); 

End; (Chord) 


(...) 

Procedure SoundOff; 
Begin 

Set_Volume(l,$0F) 
Set_Volume(2,$0F) 
Set_Volume(3,$0F) 
Set_Volume(4,$0F) 
End; (SoundOff) 


Listing 2: 

Program TryOut; 

(R. Keefe 
Wood River,111.) 

($1 Sound-IK.Inc ) 


Chord(659.784,1047,2,2,2); delay(400); SoundOff; Delay(100); 
Chord(523,659,784,2,2,2); delay(200); SoundOff; Delay(100); 
Chord(523,659,784,2,2,2); delay(200); SoundOff; Delay(100); 
Chord(523,698.880,2,2,2); delay(400); SoundOff; Delay(100); 
Chord(523,659,784,2,2,2); delay(400); SoundOff; Delay<500); 
Chord(573,784,988,2,2,2); delay(200); SoundOff; Delay(400); 
Chord(659,784,1047,2,2,2); delay(200); 


SoundOff; 
End. 


nr»m 


36 PCM July 1986 























Exploring the Tandy 100 


100 


Based on Marvin Mallon s book, this new 
column takes you on a grand tour of the 
world s most popular lap-top computer 


Exploring the Tandy 

100 


By Marvin C. Mallon 


Y ou have just invested 
in a remarkable, 
bantam-weight 
microcomputer, the 
Tandy 100. If this is 
the first time out of 
the shipping box for your new 
electronic helpmate, it might be 
appropriate to run through the set-up 
procedure. A saying that dates back to 
the beginning of the microcomputer 
age states, “if all else fails, read the 
manual.” Rather than wait for 
something to fail or, worse yet, for 


Marvin Mallon is a professional 
crocomputer programmer and 
ness consultant. He has written 
merous technical articles dealing 
a variety of computer hardware 
software dating back to 1976. 
Mallon's book, Exploring the F 
Shack Model 100, from which 
installment is excerpted, is availa 
from Compu-Quote located at 
Berquist Avenue, Canoga Park 
91307, (818)348-3662. 
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some damage to occur, you are well 
advised to make your way through the 
Tandy 100’s user’s manual. This 
owner’s guide contains start-up 
information which can be condensed 
as follows: 

1. Get four size AA alkaline batter¬ 
ies and place them in the slide-out 
compartment on the bottom of 
the machine (Figure 1). 

2. Switch the “Memory Power” 
switch (located underneath the 
unit) to “On” (Figure 2). 

3. Slide the main power switch to 
“On” (Figure 3). 

4. You should get a display similar 
to that shown in Figure 4. 

Alternatively, if you purchased the 
optional AC Power Adapter (part 
number 26-3804), plug it into the DC 
6V connector as illustrated in Figure 

5. This unit will save a lot of battery 
expense when your Tandy 100 is used 
at a desk and portability is not a factor. 
At best, the batteries will supply power 
for about 20 hours before replacement 
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is necessary. Invest in plenty of extras, 
but use the AC Power Adapter when¬ 
ever allO volt wall plug is handy. 


On/Off and Display Controls 

As you previously discovered, the 
On/Off switch is located on the right- 
hand edge of the Tandy 100. If it’s in 
the on position, and you don t touch 
the keyboard for about 10 minutes, the 
machine will turn itself off to conserve 
power. It is then necessary to slide the 
switch back to “Off,” and then to “On” 
the next time you wish to activate the 
computer. This “time-out” feature can 
be set for other time periods or can¬ 
celled altogether. Refer to the POWER 
command as explained in Chapter 9 or 
in the BASIC section of the owner’s 
manual. Any program material you 
might have entered into the machine 
will be retained. This automatic shut¬ 
down” of the Tandy 100 does not erase 
anything previously entered. Note that 
the Tandy 100 maintains the day, date 
and time. A small, built-in NiCad 
(Nickel Cadmium) backup battery 
keeps the clock going as well as sup¬ 
plying the little amount of power 
required by the internal memory. As 
long as the “Memory Power” switch is 
turned on, this battery will do the job 
until it reaches its end-of-life (approx¬ 
imately 2'A years). Its replacement can 
be easily accomplished by Radio 
Shack service personnel. 

The “Display” control is also on the 
right-hand edge of the machine (Fig¬ 
ure 3) and permits you to alter the 
LCD (Liquid Crystal Display) appear¬ 
ance to suit your taste and viewing 
angle. You can’t hurt a thing by exper¬ 
imenting with various settings of this 
control. You will probably find that it 
needs to be adjusted when you move 
the Tandy 100 from a desk to your lap. 

Setting the correct day, date and 
time is the next order of business and 
is accomplished as follows (see Figure 

1. Since BASIC is highlighted on the 

LCD and that’s where you want 
to go, press the ENTER key. 

2. Type: DRTE$="07/01'BG" 

ENTER (using today’s date in the 
format MM'DD'YY). It is ne¬ 
cessary to enter two digits for 
each of the periods; for example, 
July becomes 07. 

3. Type: TIME$="’14:07:30" 
ENTER using the correct time in 
the format HHiMM-.SS and 
adding twelve to the afternoon 
hours. Don’t forget the leading 


zeroes as in the date example 
above. 

4. Type: DRY$="TUE" ENTER using 
the current day of the week. Only 
the first three letters of the ap¬ 
propriate day’s name should be 
entered. 

5. Type: MENU ENTER and you’ll exit 

BASIC and return to the main 
menu display. 

Hereafter, your Tandy 100 will 
maintain the correct day, date and 
time except for. Leap Year’s February 
29th. which the machine does not 
recognize. The procedure need not be 
repeated unless the internal NiCad 
battery requires replacement or more 
RAM (Random Access Memory) 
modules are added to the machine. 

We are now ready to begin our 
survey of the keyboard and other 
important controls. Figure 7 illus¬ 
trates that the keyboard occupies fully 
two-thirds of the face of the computer. 


The QWERTY Keyboard 

There are 45 keys that constitute the 
main typing portion of the keyboard 
(Figure 8). The entire alphabet as well 
as numbers, punctuation marks, spe¬ 
cial characters and the space bar are 
represented here just as they are on 
most typewriters. A few of the symbols 
and the location of others may differ 
from what you see on your Smith- 
Corona, but, by and large, this is the 
same keyboard you’ve worked with 
before. Be assured that you can’t hurt 
the computer by experimenting with 
the keys. 

A few of the symbols are notably 
different than those you may be famil¬ 
iar with. Their presence is explained 
principally because of their usefulness 
in creating BASIC programs. The less 
than (<) and greater than (>) symbols 
represent the mathematical terms. The 
asterisk is still an asterisk, but doubles 
as the sign of multiplication in BASIC 
programming. 

QWERTY derives its name, of 
course, from the first six letters on the 
second row. Other, more efficient, 
keyboards have been designed (nota¬ 
bly the Dvorak) but it seems evident 
that the QWERTY is too ingrained in 
our culture to permit variation. 

As on a typical typewriter, a right 
and left shift key can be found at the 
ends of the fourth row (Figure 9). 
Either one will put you in the capital 
letter mode. A “press on/ press off 
CAPS LOCK key serves to take you 
from lower- to uppercase while the 


ENTER key performs much the same 
function as a typewriter’s “Carriage 
Return.” The TAB key also acts in a 
manner similar to typewriter opera¬ 
tion. Pressing it advances the cursor 
(the blinking black square) eight 
spaces to the right. After the fourth 
tabbing to the right, the cursor 
advances one line and returns to the 
left hand edge of the display. TAB is 
used only with Text, the built-in word 
processing program (more on that 
later) and in BASIC programs. 

The key labeled CTRL (Figure 10), 
located on the left-hand edge of the 
third row, is never used by itself, but 
performs special functions in conjunc¬ 
tion with other keys. For example, the 
combination of pressing the CTRL key 
and the letter M simultaneously will 
move the cursor down one line. A 
complete chart of control key func¬ 
tions can be found in Appendix A of 
the owner’s manual. 

The ESC (escape) key in the upper 
left-hand corner serves a limited pur¬ 
pose. When you press it twice in 
succession while in the Text mode, you 
will be returned to the main menu. 
Certain escape sequences, where this 
key is used in unison with others, are 
itemized in Appendix B of the owner s 
manual. 

The GRPH (graph) key is located in 
the lower left-hand position of the 
keyboard. When in BASIC, it is used to 
display 73 different symbols when it is 
pressed in combination with other 
keys. A complete list of these graphics 
can be found in Appendix I of the 
owner’s manual. The graphics sym¬ 
bols available include minature char¬ 
acters of human figures, playing card 
suits, arrows, checkerboard patterns 
and a variety of other useful, albeit 
unusual, pictures. They can be im¬ 
bedded in BASIC programs that you 
create or can be conjured up by simply 
pressing the GRPH key and another 
key simultaneously. Thirty-nine sym¬ 
bols are available in that manner, 
another 34 if the SHIFT key is pressed 
as well. 

The key labeled CODE to the right 
of the space bar (Figure 11) is used in 
the same manner as the GRPH key. It 
produces another 32 special characters 
when used in conjunction with other 
keys. Twenty-nine more are created 
when the SHIFT key is added to the 
combinations. The characters gener¬ 
ated by the CODE key are principally 
upper and lower case foreign language 
vowels. This arrangement permits you 
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Memory Upgrades for Tandy Portables! 


Model 600 



Model 200 


96K RAM Upgrade 
$249. or $465. for two 

Save up to $335. with this upgrade designed 
specifically for the Model 600. The 96K up¬ 
grade card fits into existing slots in the Model 
600 and adds either 96K or 192K of RAM to 
the computer. 


Model 100, 8201 or M10 


24K RAM Upgrade 
$89.00 

Two for$l70. 

Save up to $330. with this ex¬ 
act replacement while bringing 
your Model 200 up to 72 K. 


8K RAM Upgrade 
$27.00 

$75. for pkg. of 3 

Save upto$282. upgrading an 
8K Model 100 to 32K. The 
modules also fitthe NEC8201 
and the Olivetti M10. 


★ ★ ★ BUY QUALITY & SAVE ★ ★ ★ 

All three upgrades feature low power version of CMOS static RAM for 
minimum battery drain and maximum reliability. Our products are 100% 
tested before they leave the factory. Every upgrade carries with it a 30 day 
satisfaction money back guarantee and 1 yr. replacement warranty. Step 
by step illustrated instructions are included, and our customer service 
support is as close as your phone. 


TO ORDER 

CALL 714-540-1174 
or WRITE 


M/C, VISA, CHECK or MONEY ORDER 
CALIF. RESIDENTS ADD 6% Sales Tax 


SHIPPING-ADD 
UPS Ground $1.50 
2nd Day Air $4.00 
Next Day Air $12.00 


Tandy is a registered trademark of 


Tandy C6rp. 



American 
Cryptronics, Inc. 


(Formerly Cryptronics, Inc.) 

1580 Corporate Drive, Suite 123 
Costa Mesa, California 92626 
(714) 540-1174 
















to compose documents in French, 
Swedish and other European al¬ 
phabets using the Text program avail¬ 
able in this machine. All together, 
some 134 symbols can be produced by 
combining either the GRPH or CODE 
key with the conventional keys pre¬ 
viously described. 

The NUM (number) key serves a 
special purpose. If pressed, it will stay 
down and convert the 10 keys above 
it into a miniature numeric keypad. 
These keys are clearly identified by the 
small black number on a white square 
in the lower right-hand corner of the 
keytop. While the NUM key is in this 
mode, numerical data entry can be 
speeded up by using these keys as you 
would on a calculator or adding ma¬ 
chine. Pressing the NUM key again 
disables this feature and the ten keys 
revert to their conventional function 
on the QWERTY keyboard. 

The DEL/BKSP key is the last of the 
full-sized keys that requires descrip¬ 
tion. It is located in the upper right- 
hand corner of the keyboard (just 
below the cursor control keys) and 
serves double duty. You might have 
already discovered the backspace key 
acts as your electronic eraser. Each 
stroke causes the cursor to back up 
one space and “eat” the character in its 
path. This handy correction feature is 
available at all times and in all pro¬ 
gram modes. Either SHIFT key changes 
this into a delete key that pulls char¬ 
acters on the display in from the right 
rather than moving the cursor to the 
left as does the backspace key. This 
function is only operative, however, in 
the Text mode when creating or edit¬ 
ing documents. At other times, it 
simply acts as does the backspace key. 
The combination of both the shifted 
and unshifted use of this single key lets 
you do most any editing task quickly 
and efficiently. 

Programmable Function Keys 

Located just beneath the LCD dis¬ 
play are the eight programmable func¬ 
tion keys (Figure 12). These keys have 
different meanings depending upon 
which application program you have 
selected. The Tandy 100, as witnessed 
by the listing of files on the main menu 
display, offers five choices. Each of 
these is discussed fully in the chapters 
ahead. Figure 13 enumerates the func¬ 
tions performed by each of these keys 
under each of these program selec¬ 
tions. In addition, these keys can be 
redefined when the machine is operat¬ 


ing in BASIC. This feature enables you 
to program as many as eight different 
actions that a user may select by 
merely pressing one of the function 
keys. Later, when we deal with BASIC 
programming, we’ll explain how this 
is accomplished. Note Function Key 8 
(F8) is reserved as the “menu” key. 
Regardless of the application mode 
you have selected, this key, when 
pressed, will terminate activity, pre¬ 
serve any files you may have created 
and return you to the main menu. 

The Command Keys 

Just to the right of the eight pro¬ 
grammable function keys is another 
group of four keys that serve as special 
“command” keys (Figure 14). The first 
of these is the PASTE key. It is opera¬ 
tional only when the machine is in the 
Text mode. Used in conjunction with 
the “Cut” function, PASTE allows text 
to be manipulated during document 
editing. 

The LABEL key is used to alternately 
display on the bottom line of the 


“If you press the 
PRINT key and your 
printer is 
inoperative, the 
computer will 
stall.” 


screen the operations performed by 
the eight programmable function 
keys. As you move from application to 
application, the function keys (as 
explained previously) take on differ¬ 
ent definitions. You need only press 
the LABEL key to see the current 
definitions for these keys. Pressing it 
again removes this information and 
permits the last display line to be used 
for other purposes. 

The PRINT key functions at all times 
and under all applications. When 
pressed, it causes the current screen 
display to be sent to your printer. Used 
in conjunction with the SHIFT key, it 
will print out an entire BASIC or Text 
file. 

If you press the PRINT key and your 
printer is inoperative, the computer 
will stall. You can terminate the print¬ 
ing command by pressing the SHIFT- 
BREAK combination. While some 
printers will reproduce the graphic 
symbols that may have been created 


on the screen, others will either ignore 
them or behave peculiarly when these 
characters are encountered. Erratic 
performance of your printer can be 
halted by using the SHIFT-BREAK keys. 
Other means exist for sending infor¬ 
mation from the computer to the 
printer and will be discussed in future 
installments. 

The last command key is labelled 
BREAK/PAUSE. If pressed while a 
BASIC program is being listed or run, 
it will halt the machine until it is 
pressed again. This is most useful in 
that it allows you to momentarily stop 
a display that would otherwise scroll 
off the top of the screen. If pressed in 
combination with the SHIFT key, a 
BASIC program will be stopped. Only 
a CONT or a RUN command will start 
the program again. This SHIFT-BREAK 
combination is used in other applica¬ 
tions as well and serves to abort 
whatever operation may have been 
started. As mentioned in the previous 
paragraph, it is the method by which 
a PRINT command can be rescinded 
and control of the Tandy 100 returned 
to the operator. 

Cursor Control 

The last keys to be identified are the 
cursor control group located in the 
upper right-hand corner of the key¬ 
board (Figure 15). As the arrows 
beneath them indicate, they are used 
to move the blinking square (cursor) 
over the face of the LCD. They are 
most used during word processing but 
also serve to move the selector bar 
across the screen of the main menu. 
Used in conjunction with both the 
CTRL and SHIFT keys, they perform 
special functions in the Text mode. 

Other than the screen display, the 
only remaining item of interest on the 
face of the TRS-80 Model 100 is the 
“Low Battery Indicator” (Figure 16). 
When this LED (Light-Emitting 
Diode) lights up, you should replace 
the four AA batteries immediately. 
There is a reserve of about 20 minutes 
of operation before the computer will 
cease functioning. Of course, if you 
have an AC adapter, power is always 
available and no such indication will 
be given. 

Summary 

Our survey of the keyboard is com¬ 
plete. All 72 keys have been discussed 
and we should be ready to move on to 
some productive activity on the ma¬ 
chine. niifn 
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Feature /|qq 

Data Collector and 
Merge 


By Bennett Shulman 


W hen the Model 
100 first came out 
I was doing work 
that involved col¬ 
lecting public in¬ 
formation. I had 
been looking for a way of collecting the 
information so it could be transferred to 



a desktop computer. Without much of 
an idea of exactly how I was going to 
do this, I bought a Model 100. 

After studying the situation, I wrote 
a BASIC program to do this task; it was 
about 3,600 bytes long. After much 
study in program efficiency and several 
revisions, the latest version of this 
program is Daco.100 , and is slightly 
over half the original length. 

After I had collected the data, I was 
cutting and pasting parts of it into other 
documents with TEXT when the thought 
occurred to me — why not have the 
computer do that and print out the 
number of completed copies I need? To 
fill that need, I wrote Datmg.100. 

These programs and others that ac¬ 
cess the database created with the use 
of Daco.100 have turned out to be more 
than adequate for my needs. Although 
I do transfer the data to a desktop 
computer, that is done only for back-up 
purposes. I do all the work on the 
Model 100. 

Program Set Up 

Before using Daco.100 , you must 
open two RAM files with TEXT. The 
first I will call the label file. This file sets 
the structure of the data and names each 
data item. The other one is the data file 
where the collected data will be accu¬ 
mulated. 

Opening the Data File 

You need to decide how many file 
headers will appear at the beginning of 
the file (there must be a minimum of 
one). Their purpose is to provide a short 
description of what data is in the file. 


Bennett Shulman is an assistant profes¬ 
sor at Lansing Community College and 
holds degrees in both law and account¬ 
ing and is self-taught in the area of 
personal computing. 
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Radio Shack has the 



Computer System 
Furniture 

Reg. Separate 
/ V|\| W Items 319.80 


Spacious modular worksta¬ 
tion is ideal for home or of¬ 
fice. Features simulated oak 
finish. Easy to assemble. 

E! System Desk. Twin cable 
management slots for easy 
connections. 

26-1356 . 119.95 

El Storage Hutch. Mounts 
on system desk. Features 
adjustable ‘‘second shelf’ 
on either side. 

26-1359 . 59.95 

Half-Width Hutch. (Not 
shown). 26-1374 . . . 54.95 
ElCorner Section. Con¬ 
nects system desk and 
printer stand for a conven¬ 
ient “work corner.’* 

26-1358 39.95 

ElPrinter Stand. With out¬ 
put paper catcher and stor¬ 
age shelf. 

26-1357 . 99.95 


Monitor Pedestal 



16 95 


Adjustable platform ro¬ 
tates and tilts. Holds all 
Tandy monitors. Color 
and finish match moni¬ 
tors. Base: 11 X lO 1 /^! 
(26-1369) 


Printer Supports 



Elevates printer so fan- 
fold paper can be placed 
underneath. Use with 
80-column printers. Du¬ 
rable crystal polystyrene. 
Easy to assemble. 
(26-1367) 


Diskette Storage 



3‘/a". Holds 30. 

26-1381 . 12.95 

5 l U". Holds 50. 

26-1362 14.95 

8'! Holds 50. 

26-4953 . 24.95 


Disk Drive Head 

Cleaning Kits 



Disk Size 

Cat. No. 

Each 

*3V2 w 

26-419 

9.95 

51 / 4 " 

26-408 

7.95 

8" 

26-4957" 1 

8.95 


‘Single sided only 


Fanfold Printer Paper 



Size 

Parts 

Design 

Vertical 

Qty. 

Cat. No 

Price 

147/8X11" 

1 

Greenbar 

No 

500 

26-1330 

11.95 

147/8X11" 

1 

Greenbar 

No 

1500 

72-300 

34.95 

147/eX 11" 

1 

Greenbar 

No 

3500 

26-1417 

69.95 

147/8X11" 

1 

White 

No 

1500 

72-303 

34.95 

9V2X 11" 

1 

Greenbar 

Yes 

1500 

72-304 

24.95 

91/2 x 11" 

1 

Greenbar 

Yes 

3500 

26-1403 1 

49.95 

91 / 2 XII" 

1 

White 

Yes 

500 

26-1423 

8.95 

91/2x11" 

1 

20# White 

Yes 

500 

26-1387 

10.95 

91 / 2 x 11 " 

1 

20# White 

Yes 

1250 

26-1427 

24.95 

91 / 2 XII" 

1 

20# White 

Yes 

2500 

72-311 

44.95 

91 / 2 XII" 

2 

White 

Yes 

750 

72-305 

34.95 


Mailing Labels 



1-Wide. 4 V 2 " carrier. Pkg./lOOO. 26-1328 . 6.95 

1- Wide. 4 1 /2 ,/ carrier. Pkg./5000. 72-402 . 24.95 

2- Wide. 9 V 2 " carrier. Pkg./2000. 72-401 . 15.95 

3- Wide. 9 V 2 " carrier. Pkg./3000. 72-400 . 16.95 


2Wide. Dry gum. 9 l l2 n carrier. Pkg./2400. 26-1456 . . . 9.95 


Items Shown With Optional Computer Components (Not Included). 





























































best of everything. 


Low-Cost, Compact 
Computer Workcenter 

89 * 

■ Organize Your Computer System With 
This Compact, Efficient Workstation 

■ Beautifully Designed and Finished 
to “Fit In” with Other Furniture 


Our beautifully styled, simulated oak finish workcenter 
features a lull-width monitor shelf (41 l /z x 14 3 /4"), space 
for computer and printer, plus plenty of workspace. This 
easy-to-assemble workcenter comes with adjustable 
glides. (26-1350) 




Data Communications Modem 



DCM 3. 300-bps modem plugs di¬ 
rectly into modular phone outlet. 
DB25 and 4-pin DIN connectors. 
Bell 103 compatible, full duplex. 
FCC registered. (26-1178) 



Certified 

Unformatted 

Diskettes 


■ Double Density 

■ Manufactured to the 
Highest Standards 
of Excellence 


■ Buy in 10-Pack Quantities and Save 


Single Sided 


Size 

Tracks 

Quantity 

Cat. No. 

Price 

3V2" 

80 

3 

26-415 

15.95 


80 

10 

26-416 

44.95 


40 

1 

26-305 

2.19 

51 / 4 " 

40 

3 

26-405 

5.95 


40 

10 

26-406 

15.95 

8" 

77 

3 

26-4904 

10.95 


77 

10 

26-4906 

34.95 


Double Sided 


Size 

Tracks 

Quantity 

Cat. No. 

Price 


40 

3 

26-411 

6.95 


40 

10 

26-412 

16.95 

5V4" 

80 

3 

26-409 

8.95 


80 

10 

26-410 

24.95 


80(high 

3 

26-421 

15.95 


density) 

10 

26-422 

44.95 


77 

3 

26-4961 

12.95 

8" 

77 

10 

26-4960 

39.95 


Radio /hack 

The Technology Store" 

A DIVISION OF TANDY CORPORATION 


mm mm m m m n m na m m 


Send me an RSC-17 
Computer Catalog. 


L 


Radio Shack 
Dept. 87-A-13 
300 One Tandy Center 
Fort Worth, Texas 76102 


Name _ 


Address. 
City_ 


State _ 


ZIP 


Phone. 


wcuvnnt mm m tn m m m 


n 


Prices apply at Radio Shack Computer Centers and participating stores and dealers. 



















































Each file header can be no longer than 
255 characters. 

Upon opening the data file, select any 
valid . DO filename. For our example we 
will call the file CUSLST.DO. The first 
entries in the file should be the head¬ 
ers), each followed by a <CR>. Noth¬ 
ing else should be in the file at that 
point. The data collected during the 
operation of the program will be ap¬ 
pended to this file or will be replacement 
lines for lines in this file. 

For expample, if the data file has one 
header label it would read: 

FILE OF CUSTOMERS 

If the file has two header labels they 
would read: 

LEADS TO FOLLOW UP 
WESTERN DISTRICT 

Creating the Label File 

Next you need to decide how many 
data items will be collected and what 
those items will be called. For purposes 
of illustration, we will construct a 
customer file. The data items to be 
collected are last name, first name, 
street adr, city state ZIP, company 
name, tel #, date of last order, amount 
of last order and salutation. The first 
item of each record is used as the record 
identifier. 

Once you have decided upon the 
number of file headers and data items, 
the label file can be written. For this 
example we will call the label file CUS 
LAB.DO. The first line should contain 
the number of headers (comma) 
number of data times (comma) number 
of the data item to be used as key 
reference (this data item is displayed at 
the top of the screen when a record is 
being entered). Select the data item that 
best helps you keep track of the record 
on which you are currently working. 

For example, if the data file has one 
header, nine data items for each record 
and the first data item is our key refer¬ 
ence, the first line of the label file would 
be: 1,9,1. 

Next, you should enter the names of 
the individual data items each followed 
by a <CR>. The entire label file would 
look like this: 

1,9,1 

1- LAST NAME 

2- FIRST NAME 

3- STREET ADR 

4- CITY STATE ZIP 

5- COMPANY NAME 


G- TEL « 

7- DATE OF LAST ORDER 
B- AMOUNT OF LAST ORDER 
9- SALUTATION 

The item numbers (1-, 2-, etc.) are 
not a necessary part of the data item 
label, but are useful for reference. 

Running Daco.100 

Now you are ready to run Daco.100. 
When the program is run the user is 
prompted with LABEL FILE AND RE 
CORD FILENAMES? The label filename 
and the data filename should be en¬ 
tered, separated by a comma followed 
by a <CR> (for our example: CUSLAB, 
CU5LST). The program’s main menu 
will then appear. 

Menu prompts are answered with one 
keystroke and no <CR>. The functions 
are briefly described here. 

1. ) [F] ILE LABEL — Displays all file 
headers. You can check to make sure 
you are working on the correct data file. 
Pressing ‘M’ returns to the program’s 
main menu. 

2. ) [I]NPUT NEW RECORDS — When 
selecting this function the screen clears 
and the label of the first data item 
appears on the screen. You can now 
enter the first data item. The program 
uses LINE INPUT so you can use com¬ 
mas and the data item can be 255 
characters long. When you enter a 
<CR>, the screen clears and the next 
label appears. You can now enter the 
next data item for that record. This 
process continues until you have 
reached the end of your data item list. 
If you are not going to enter all the data 
at one time you can skip to the end of 
the record by entering a ‘ [ ’ by itself for 
a data item. 

At the end of the data entry of each 
record, an option to change any entry 
is provided (Y'N). If ‘Y’ is selected the 
program scrolls through the data items 
again, this time showing what was 
previously entered along with the Key 
Ref: data item shown on the top line 
of the display. If ‘N’ is selected, the 
additional choice of continuing with the 
next new record is provided. If you are 
entering all data for each record at one 
time in the [ I ] nput function, all me¬ 
mory can be filled (about 27K in a 32K 
machine). However, it makes sense to 
leave about 6K free for use of 
Datng. 100. 

3.) [ S ] UPPLEMENT EXISTING RE 
CORDS — Upon selecting this function 
the prompt to enter the desired record 
appears. A <CR> brings up the next 


record. A valid record identifier (the 

first data item of a record) brings up 
that record item. Upper- and lowercase 
are different characters in this program. 
Therefore, you must be consistent in 
how you enter the data. An invalid 
record identifier causes the program to 
read to the end of the data file, display 
the message END OF FILE and return to 
the main menu. You should not SHIFT- 
BREAK and restart the program; this 
causes the loss of data. 

When scrolling through a record the 
data item label and the data currently 
in that item appear on the screen with 
the Key Ref: data item for that record 
on the top line. Data entered at this 
point replaces the existing data. Editing 
of existing data is not possible from the 
program. (You can enter the data file 
from TEXT to directly edit the data. Be 
careful not to place an extra <CR> in 
the data file as all records after it will 
be out of place.) 

If you enter a <CR>, the data is 
unaffected and the program scrolls 
down to the next data item. A ‘[ alone 
ends modification of the record, leaving 
the current data item and all other data 
items of that record after the current 
item unaffected. The record ID prompt 
appears and operates as previously 
described. In effect, <CR> pages 
through the records and the data items. 

4.) [ D ] I5PLAY RECORD — Displays 
an additional menu as follows: 

[ A ] LL 

[RjECORD ID 
[M]ENU 

[A]LL displays all the record IDs on 
the screen; the computer beeps allowing 
you to press the PAUSE key to hold the 
screen. The [ A ] LL function can be used 
to help find a record you want to 
display, print or supplement. It can also 
operate as a checksum to make sure all 
the records have the correct number 
data items. 

When you select [RJECORD ID the 
prompt RECORD ID? appears. If you 
enter a valid ID, the computer searches 
for that record and beeps as the record 
starts to appear on the screen. The 
record (data labels and data) scrolls past 
at a moderate rate of speed. Press the 
PAUSE key to hold the screen. If an 
invalid ID is entered, the END OF FILE 
message appears and the [D]isplay 
menu rather than the main menu ap¬ 
pears. 

5.) [H]ARD COPY — When you select 
the [ H ] ARD COPY function the RECORD 
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COLOR COMPUTERS 

OUR 

PRICE 

26-3127 64K Extended Color Computer 2 . $199.95 $ 
26-3131 Thinline Disk Drive 0 for Color Computer 299.95 

26-3018 Extended Basic Kit . 39 95 

26-3030 OS-9 With Editor Assembler. 69 95 

26-3012 Deluxe Joystick . 29 95 

26-1208 CCR-81 Recorder . 59 95 

30001170 VIP Integrated Library. 149 95 

30001110 VIP Writer. 69 95 

30001210 Telewriter 64 Tape. 49 95 

30001220 Telewriter 64 Disk. 59 95 

30009110 Botek Interface . 

169.00 

240.00 

36.00 

59.50 

25.00 

50.00 

139.00 

59.00 

42.00 

49.00 

59.00 

TANDY 3000 


25-4001 Tandy 3000 One Disk 512K .$2599 00 $1 

25-4010 Tandy 3000 One Disk & 20 Meg HD 512K 3599.00 2 
25-4030 512K to 2 Meg Expansion Board . 499.00 

25-4033 Math Co-Processor for 3000 . 399.95 

25-4050 1.2 Meg Disk Drive Kit for 3000 . . 299.95 

25-4062 20 Meg Hard Disk Kit . 799.00 

25-4101 MS-DOS 3.1/Basic/DeskMate .... 99.95 

900.00 

600.00 

395.00 

339.00 

255.00 

379.00 

85.00 

TANDY 100, 200, 600 


26-3901 Tandy 600 Port Comp 32K 3Vz DD $1599.00 $1 

26-3904 Basic Rom for Tandy 600 . 129.95 

26-3910 92K RAM Upgrade for Tandy 600 . 399.95 ; 

26-3860 Tandy 200 Port Comp 24K . 799.00 ( 

26-3866 24K RAM Memory Exp Chip for 200 199.95 

26-3802 Tandy 100 Port Comp 24K. 499.00 ^ 

26-3816 8K RAM Upgrade for Tandy 100 . . 49.95 

26-3808 Port 3V 2 Disk Drive for T100 T200 . 199.95 1 

26-3815 Portable Disk Case . 24.95 

26-3805 Acoustic Coupler. 39.95 

26-1409 Printer Cable . 14.95 

26-1410 Modem Cable . 19.95 

195.00 

110.00 

340.00 

550.00 

70.00 

^25.00 

42.00 

69.00 

21.00 

34.00 

12.70 

17.00 

MODEL4D 


26-1070 Model 4D 64K 2 FD w/DeskMate $1199.00 $£ 

26-1122 64K Memory Expansion . 69.95 

26-1123 Model 3 to Model 4 Upgrade Kit . . 399.00 G 

26-1134 Model 4 HD Kit for 15 Meg. 79.95 

26-1530 Multiplan Model 4 . 199.00 1 

26-1595 Super Scripsit Model 4 . 199.95 1 

26-1608 DeskMate for Model 4 . 195.00 1 

26-1635 Profile 4 Model 4 . 249.95 2 

26-2216 CP/M Plus Model 4 . 149.00 1 

26-2231 Double Duty Utility. 69.95 

*95.00 

65.00 

185.00 

67.95 

69.00 

69.00 

75.00 

100.00 

27.00 

58.00 

MODEL 6000 COMPUTERS 


26-6021 Model 6000 512K 2 FD Comp . . $4499.00 $21 
26-6022 Model 6000 512K 1 FD 15 Meg HD . 5499.00 29 
26-6019 Model 6000 256K Memory Kit ... . 199.95 1 

26-6052 DT-100 Data Terminal. 795.00 6 

26-1245 10 Meg Disk Cartridge System . . . 2195.00 17 
26-6018 6000 Interface Kit for 26-1245 .... 119.95 1 

25- 3022 1000/1200/3000/Interface Kit for 26-1245 199.95 1 

26- 4171 35 Meg Hard Drive Primary. 2995.00 25 

26-4172 35 Meg Hard Drive Secondary .. . 2695.00 18 

26-4173 70 Meg Hard Drive Primary. 4295.00 33 

26-4157 Installation Kit for Primary HD ... . 349.00 2 

25.00 

75.00 

85.00 

00.00 

50.00 

02.00 

60.00 

45.00 

95.00 

50.00 

95.00 

All prices and offers may be changed or withdrawn without notice. Adve 
prices are cash prices. C.O.D. accepted ($10.00 charge per carton on C 
Call for further C.O.D. information.) M.C., Visa, add 2%. AX, add 3%. A 
defective items returned will be subject to 10% restocking fee. Def 
items require return merchandise authorization. Call for R.M.A. Ni 
before returning. Delivery is subject to product availability. 

irtised 

J.O.D. 

1 non- 
ective 
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26-1276 DMP-105 Dot Matrix Printer .$ 199.00 $ 169.00 

26-1275 TRP-100 Portable Thermal Printer. 299.00 230.00 

26-1280 DM P-130 100 cps Triple Mode Printer 349.95 285.00 

26-1268 CGP-220 Color Ink-Jet Printer . . . 699.00 595.00 

26-2830 PC-695 8-Color Digital Plotter .... 799.00 680.00 

26-1277 DMP-430 24 Wire Matrix Printer . . 899.00 635.00 
26-1270 DWP-510 43 cps Daisy Wheel . . . 1495.00 1225.00 
26-1274 DMP-2100P 24 Dot Matrix Printer. 1495.00 1195.00 
26-1279 DMP-2200 HiSpeed Matrix Printer. 1695.00 1440.00 

26-1269 PT-64 Printer Controller. 249.95 210.00 

26-1498 SW-302 Printer Switch . 119.95 100.00 

26-1447 Bi-Directional Tractor for DWP 510 219.95 186.95 


TANDY 1200 


25-3000 Tandy 1200 One FD & 10 Meg HD $1999.95 $1525.00 

25-3001 Tandy 1200 Two FD 256K . 1499.00 1200.00 

25-3044 Graphics Master . 695.95 540.00 

25-3061 Captain Multifunction Board . 599.95 475.00 

25-3020 TCS-100 Tape Cartridge System . 1999.00 1555.00 
25-3021 TCS-100 Interface Kit 1000/1200 . 149.95 120.00 

25-3130 MSDOS/BASIC. 89.95 76 50 


TANDY 1000 __ 

25-1000 Model 1000 128K 1 FD & DeskMate $ 999.95 $ 705.00 


25-1001 Model 1000 256K 1 FD 10 Meg HD 1999.00 1475.00 
25-1003 300-Baud Modem Board 1000/1200 149.95 125.00 

25-1005 Disk Drive Expansion 1000 . 199.95 170.00 

25-1014 RS-232C Plus Interface 1000/1200 99.95 85.00 

25-1013 1200-Baud Modem Board 1000/1200 299.95 230.00 

25-1025 10 Meg Hard Disk Drive . 699.95 559.00 

25-1007 Hard Disk Control Board. 299.95 255.00 

30051030 PJB Multifunction Board 512K . 310.00 


MONITORS AND DISPLAY ADAPTERS 

25- 1020 VM-4 Monochrome Monitor $149.95 $125.00 

26- 5111 VM-1 Monochrome Monitor 199.95 165.00 

25-3010 VM-3 Green Monitor 219.95 185.00 

25-1021 CM-4 Color Monitor 299.95 225.00 

25- 1022 CM-10 Color Monitor 459.95 380.00 

26- 5112 CM-1 Color Monitor 599.95 475.00 

25-3043 Graphics Display Adapter 299.00 185.00 

25- 3046 Deluxe Text Display Adapter 249.95 199.00 

26- 3047 Deluxe Graphics Display Adapter 499.95 295.00 


EPSON PRINTERS 


20001015 Homewriter 10. $295.00 $215.00 

20001025 LX-80 Dot Matrix Printer. 329.00 250.00 

20001035 FX-85 Dot Matrix Printer. 549.00 385.00 

20001050 HI-80 4 Pin Plotter . 599.00 390.00 

20002010 RX-100 Dot Matrix Printer . 499.00 400.00 

20002030 FX-286 Dot Matrix Printer. 799.00 550.00 

20003020 LQ-800 24 Pin Head Dot Matrix . 799.00 565.00 

20003030 LQ-1000 24 Pin Head Dot Matrix . 995.00 695.00 

10081010 DX-10 Daisy Wheel Printer. 299.00 255.00 

10081020 DX-20 Daisy Wheel Printer. 459.00 390.00 

10081030 DX-35 Daisy Wheel Printer. 899.00 765.00 


For Technical Questions and Information on our complete line of 
computer accessories and current prices: 

CALL 1-517-625-4161 

FOR ORDERS ONLY CALL 1-800-248-3823 

Mon., Wed. & Fri. 9-9, Tues. & Thurs. 9-6, Sat. 9-3 

12M S. mniM ST PERR9, HUGH. 48872 























































































































ID? prompt appears. If you enter a valid 
ID that record is printed along with the 
labels identifying each data item. At the 
end of the record a form feed, 
CHR$ (12), is sent to the printer. If your 
printer uses a different control charac¬ 
ter, you can change variable M in Line 
1 of the program. When the printout is 
complete or the end of file is reached the 
main menu reappears. If you attempt to 
print a record without the printer 
hooked up, the computer appears to 
lock up. To recover: Press SHIFT BREAK 
to break out of the program and then 
F4 to restart. 

6.) [E]XIT FROM PROGRAM — Returns 
to the Model 100 main menu. Maxfiles 
will be set at two. You should exit from 
the program this way rather than break¬ 
ing out of it and pressing F8 because 
data might be lost. 

Correcting Errors 

There are three possible sources of 
errors that might occur. They are: 1) 
Entering data with TEXT in a manner 
that changes the number of carriage 
returns in a data file (EF Error); 2) 
Running out of string space claimed in 
the CLEAR (OS Error); and 3) Running 
out of memory when using the [Sup¬ 
plement function (OM Error). 

Correcting the first two problems is 
easy. If the incorrect number of carriage 
returns is in the file, correct it with TEXT 
and use the display [ A ] LL to make sure 
everything is back in order. For the 
second, edit Line 1 of the program to 
increase string space claimed in the 
CLEAR command. 

Correcting the third error is more 
complex. Model 100 BASIC has only 
sequential file access. Most disk-based 
computers have random-direct file 
access. For the Model 100 this means 
that in order to insert data into a RAM 
file as Daco.100 does, the file needs to 
be copied from the top down to the 
point that the replacement is to be 
made. This replacement is actually a 
line substitution. 

To successfully insert a replacement 
line, there must be two copies of the 
data file memory, the old one and the 
new updated one. Daco.100 uses ap¬ 
proximately 2K for the program and the 
file label. In an otherwise empty 32K 
machine this leaves 27K for data stor¬ 
age. If data is to be inserted in an 
existing 15K data file, the file, while it 
is being copied, will consume 30K 
(15K*2) and cause an out-of-memory 
error. 

The solution is to break your data 


files into smaller ones (but you can keep 
more than one in memory at a time. We 
can break our 15K data file down into 
three 5K data files. When we insert data 
into one of the 5K files, memory arith¬ 
metic would be 5K for the old copy of 
the data file being updated, 5K for the 
new copy, 10K for the other two data 
files that are not currently being ac¬ 
cessed and 2K for the program. This all 
adds up to only 22K. 

The point, therefore, is to have sev¬ 
eral smaller data files rather than one 
large one. It is best to start out with this 
plan. If you end up with a large data file 
that you still need to supplement, care¬ 
fully cut and paste it into at least three 
smaller files and add the correct number 
of file headers so the program correctly 
reads the new files. 

If the out-of-memory error occurs 
during the update of an existing data file 
with the [Supplement function, your 

“The program allows 
forced page breaks 
with the inclusion of 
the form feed 
character recognized 
by your printer.” 

newly entered data merged with the 
existing data is in a file called Z.DD. 
However, this file is not complete since 
the copying process was interrupted. 
Look at the end of this file and delete 
any incomplete records with TEXT. You 
must now patch the balance of your 
data file to Z.DO. 

Return to the Model 100 menu and 
enter your data file with TEXT. Cut the 
data file with the F7 F6 from the top 
down to the point where entries are 
Z. DO stop. Cut and paste the balance of 
the data file to the end of the Z. DO file. 
Now your data file should be complete 
again. Kill your now empty data file 
with Ki i V filename” in BASIC and name 
Z.DO as your data file (also in BASIC). 
Do the checksum to make sure every¬ 
thing is in order and you are set to go 
again. 

Datmg.100 Capabilities 

This program takes the data accu¬ 
mulated from using Daco.100 and 
merges any data items from any records 
selected into a form we create in RAM 
with TEXT. Any number of copies of the 
completed form can be printed. There 
is an option of saving one copy of each 


completed form on cassette tape. The 
data file can be entered from RAM or 
cassette tape. Obviously, there cannot 
be both tape input and output in the 
same run. 

Datmg.100 Set Up 

Prior to running the program you 
must arrange the input and output 
devices (printer, and input or output, 
data file in RAM or tape and label file 
in RAM. 

The data file used must be one created 
by Daco.100. It can be in RAM or on 
tape, but having the data file in RAM 
has two advantages: 1) faster execution 
and 2) use of the program’s second pass 
search if the records selected are listed 
in a different order than they appear in 
the RAM data file. On the other hand, 
having the data file on tape uses no 
memory. 

The label file must be in RAM and 
must be the same one that was used with 
Daco.100 to create the data file. 

The user must also open a RAM file 
with the name JOBSPC.DO. This file 
must contain the record ID of each 
record that will be accessed in the data 
merge run. The ID is the first data item 
of each record. Each record ID should 
be followed by a comma (,) with the 
number of copies desired, then followed 
by a <CR>. For example: 

smith,2 
Jones,1 
BROWN,3 

The program forces uppercase for inter¬ 
nal use in the ID so records are not 
missed for this reason. 

If the data file is in RAM, it will not 
matter if the records requested are out 
of order as the program makes two 
passes through the data before giving 
up. If the input data file is on tape, be 
sure the records in JDBSPC - DO are in the 
same order that they appear in the data 
file. The program reads to the end of the 
file looking for the record. The only way 
to be sure if this has occurred is to let 
the tape run to the end. 

You must also create the blank form 
in a RAM file using TEXT; the form can 
have any format. The program takes 
care of left and right margins. You can 
specify these during the start up of the 
program. You should include the de¬ 
sired number of <CR>s at the top of the 
form to specify the top margin. 

The program allows forced page 
breaks with the inclusion of the form 
feed character recognized by your prin- 
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ter. This can be specified during startup. 

The program assumes you are using 
paper with 66 lines. A page break is 
automatically generated after printing 
55 lines. The program takes care of page 
breaks at the end of each document, so 
do not insert the form feed CHR$ at the 
end of the document. 

In order to indicate where data is to 
be inserted use the down-arrow graph¬ 
ics symbol, T, for example, “14,” selects 
the city-state-ZIP data item to be in¬ 
serted at that point. None of the three 
characters take up space in the com¬ 
pleted form, so format your form ac¬ 
cordingly. 

The print editor in the program 
supports non-printing control charac¬ 
ters for such printer functions as com¬ 
pressed font, double-strike printing, 
underlining, etc. You should include 
such special characters (CHR$) in the 
form with CHR$(12). Consult your 
printer manual for the available func¬ 
tions and codes. 


Running Datmg.100 

The program has been designed to 
allow you to start it and let it run 
unattended. It first prompts you to 
enter the label and data filenames. They 
should be entered in the same manner 
as in Daco.100. Next, you are prompted 
to enter the form filename. 

The printing parameters are the next 
input. Each has a default value indi¬ 
cated. All on the same screen, you 
should enter: left margin, right margin, 
single- or double-spaced, ASC# of the 
form feed character of the printer used, 
and tape output or not. 

The screen then clears with only 
RECORDS jNOT FOUND: remaining on the 
screen. The IDs of those records not 
located are printed on the screen as a 
run report. At this point, there is a pause 
of several [seconds to a minute and a half 
long as the program searches for the 
first record specified in JOBSPC.DO and 
merges the selected data items into the 
form. 


When the merging is done, the pro¬ 
gram edits the completed form to the 
printer, RAM and tape if requested (if 
a tape copy is being made each form 
merged will be in a separate file with the 
filename CflS:C). The program pauses 
after each line to edit the next line. The 
printing of additional copies after the 
first will be faster. The merged and 
edited RAM copy of the form is 
dumped to the printer. There is no pause 
for editing. 

When all forms have been printed, 
the RECORDS NOT FOUND report is on the 
screen. The two copies of the form 
created by the program will have been 
killed and Maxfiles set to zero. 

Datmg.100 is a flexible program 
because it allows you to define the blank 
form in any format. What may not be 
apparent is that your data item length 
as collected by Daco.100 can be up to 
255 characters. Datmg. 100 merges that 
entire data item where indicated and 
edits the line so as not to break words 
in the middle. □ 


Listing 1: 

0 ’ DATMG.100 BY BENNETT D. SHULMAN COPY 
RIGHT 1984 ALL RIGHTS RESERVED 

1 G0T037 

2 0PEN"E.D0"F0RINPUTAS4 

3 IFEOF(4)THENCL0SE4:RETURNELSELPRINTINP 
UT? (1,4);:G0T03 

4 0PENEF0RINPDTAS3:OPEN”M.DO"FOROUTPUTAS 

5 

5 IFEOF(3)THENCLOSE3:CLOSE5:RETURN 

6 A-INPUT?(1,3) 

7 IFA-CHR?(153)THENINPUT#3,W:PRINT#5,B(W 
);ELSEPRINT#5 , A; 

8 G0T05 

9 OPEN"M.D0"F0RINPUTAS5:OPEN"E.D0"F0R0UT 
PUTAS4:IFTP-1THEN0PEN"CAS:C.DO"FOROUTPUT 
AS 6 

10 F0RQ=1T0V+1-LEN(I) 

11 IFE0F(5)THENG—I+CHR?(P):GOSUB25:GOSUB 
21:CL0SE4:CL0SE5:CLOSE6:I-”":T-0:RETURN 

12 A=INPUT?(1,5) 

13 IFA—CHR? (Iff) THEN11 

14 IFA-CHR?(13)THENG-I:G0SUB25:G0SUB21:I 
«"":GOTO10 

15 IFA-CHR?(P)THENG=I+A:GOSUB25:G0SUB21: 
1=”":A="" :T-0:GOTO10 

16 I=I+A 

17 NEXT 

18 FORQ=LEN(I)TO0STEP-1 

19 IFMID? (I,Q,1)—" "THENG-LEFT?(I, Q-l)| : I 
“RIGHT?(I,LEN(I)-Q):GOSUB25:G0SUB21:GOTO 
10:GOSUB25:G0SUB21:GOTO10 

20 NEXT 


21 LPRINTSPACE?(S);G:PRINT#4,SPACE?(S);G 
:T-T+l:IFT>5 5THENLPRINTCHR?(P);:PRINT#4, 
CHR?(P);:T-0 

22 IFTP-1THENPRINT#6,SPACE?(S);G:IFT>-56 
THENFRINT#6,CHR?(P); 

23 IFZ=1ANDT=<5 6THENLPRINT:PRINT#4,:T-T+ 
1:IFTP-1THENPRINT# 6, 

24 G-"”:RETURN 

25 IFLEFT?(G,3)-" "THENRETURN 

26 IFLEFT?(G,1)-" "THENG-RIGHT?(G,LEN(G) 
-1):G0T026ELSERETURN 

27 IFEOF(2)THENKILL"M.DO":KILL”E.DO":MAX 
FILES-0:END 

28 INPUT#2 , F,M: K—F: G0SUB31: F—K 

29 IFEOF(l)ANDX-lTHENPRINTF;" ";:CL0SE1: 
G0SUB34:X=0:RETURNELSEIFE0F(1)THENCL0SE1 
:G0SUB34:X—1:G0T029 

30 FORQ—1T0N:LINEINPUT#1,B(Q):NEXT:K—B(1 
):G0SUB31:AA=K:IFAA-FTHENO-1:X=0:RETURNE 
LSE29 

31 FORZl-lTOLEN(K):22—ASC(MID?(K,Z1,1)) 

32 IFZ2>96ANDZ2<123THENMID?(K,Z1,1)—CHR? 
(Z2-32) 

33 NEXT:RETURN 

34 0PENDF0RINPUTAS1:F0RQ-1T0U:LINEINPUT# 
1,H(Q):NEXT:RETURN 

35 GOSUB27:IFO-1THENO-0:G0SUB4:GOSUB9:IF 
M-1THEN35ELSEFORQ-2TOM:G0SUB2:NEXT 

36 G0T035 

37 CLS:CLEAR1700:MAXFILES=6:DEFSTRA-K:DE 
FINTL-Z:PRINT:FILES:INPUT"LABLE FILE AND 

DATA FILE NAMES ";LF?,D:CLS:PRI 

NT:FILES:INPUT"FORM FILE NAME";E:OPENLF? 
F0RINPUTAS1 
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38 INPUT#1,U,N,R:DIMB(N),H(U):CLOSE:S-10 

28 CLS:PRINT:PRINT"DISPLAY MODULE":PRINT 

:Y-70:CLS:PRINT:INPUT"LEFT MARGIN <CR>-1 

TAB(7);"[A]LL RECORD ID'S":PRINTTAB(7);" 

JJ” ; S : INPUT”RIGHT MARGIN <CR>—70” ; Y : V—Y-S 

[R]ECORD ID ?":PRINTTAB(7);"[M]ENU"; 

:INPUT”[S]INGLE OR [D]OUBLE SPACE <CR>-[ 

30 H-INKEY?:IFH=""THEN30 

S]";J:IFJ—"D"ORJ—" d "THENZ—1 

31 IFH="A"ORH="a"THEN35 

39 OPEN”JOBSPC.DO”FORINPUTAS2:GOSUB34 

32 IFH="R"ORH="r"THEN39 

40 P-12:INPUT"FORM FEED CHR$ ASC# <CR>-1 

33 IFH="M"ORH="m"THENCLOSE:GOSUB68:RETUR 

N 

2”; P 

41 INPUT”DO YOU WANT CASSETT OUTPUT Y/N 

34 GOTO30 

<CR>—N";C:IFC-”Y"ORC—"y"THENTP—1 

35 CLS:PRINT:GOSUB52 

42 CLS :PRINT”RECORDS NOT FOUND: "; 

3 6 IFEOF(1)THENBEEP:FORN-0TO 7 5 0:NEXT:GOS 

43 G0T035 

UB75:CLOSE:G0T028 

37 G0SUB54:PRINTA(l);" ";:IFPOS(0)>30THE 
NPRINT 

38 G0T036 

39 G0SUB52:GOSUB69 

40 IFA(l)-""THEN28ELSEIFK—A(1)THEN41ELSE 

Listing 2: 

28 

41 CLS:BEEP:PRINT:FORN-1TOL:PRINTC(N):PR 
INTTAB(3);A(N):FORO-0TO600:NEXT:NEXT:GOS 

0 ' DATA COLLECTOR -- DACO.100 -- BY B 

UB75 

ENNETT SHULMAN. COPYRIGHT 1984 

42 CLOSE:G0T028 

1 CLEAR1200:MAXFILES-2:DEFINTL-V:DEFSTRA 

43 FORN-1TOL:FRINT#V,A(N):A(N)="":NEXT:R 

-K:M=12:D=".DO":CLS:PRINT:FILES:INPUT”LA 

ETURN 

BEL FILE AND RECORD FILE NAMES 

45 F0RN-1T0L:CLS:PRINT@0,"KEY REF: ";A(S 

G , J: IFRIGHT$ ( J , 3 )ODTHENJ«J+D : OPENGFORIN 

):PRINT@85,C(N):PRINTA(N) 

PUTAS1:INPUT#1, T , L, S ;DIMA(L),C(L),F(T):F 

46 PRINT:LINEINPUTE 

ORN-1TOL:LINEINPUT#1,C(N):NEXT:CLOSE:CLS 

47 IFE—"["ANDU—1THENCLS:G0T051 

: GOSUB68 

48 IFE-"["THENFORR-NTOL:A(R)-"":NEXT;CLS 

2 H-INKEY?:IFH=""THEN2 

:G0T051 

3 ONINSTR("FISDHEfisdhe",H)+1G0SUB4,6,10 

49 IFEO”"THENA(N)=E 

,21,28,56,5,6,10,21,28,56,5 

50 CLS:NEXT 

4 H='"': G0T02 

51 U=0:RETURN 

5 MENU 

52 OPENJFORINPUTASl 

6 GOSUB52:CLS:PRINT:FORQ-ITOT:PRINTF(Q): 

5 3 F0RN-1T0T:LINEINPUT#1,F(N):NEXT:RETUR 

NEXT 

N 

7 PRINT(2287 , " [M] ENU” ; 

54 FORN-1TOL:LINEINPUT#1,A(N):NEXT:RETUR 

8 I-INKEY?:IFI-""THEN8 

N 

9 IFI="M"ORI—"m"THENCLOSE:GOSUB68:RETURN 

55 PRINT:PRINT"END OF FILE":BEEP:BEEP:FO 

ELSE8 

RN-1T01E3:NEXT:RETURN 

10 OPENJFORAPPENDAS1 

56 G0SUB52:GOSUB69 

11 CLS:GOSUB45 

58 IFK=A(l)THEN59ELSEGOSUB68:RETURN 

12 PRINT:PRINT"DO YOU WANT TO CHANGE ANY 

59 FORN—1TOL:LPRINTSPACE?(10);C(N):LPRIN 

ENTRY Y/N 

TSPACE?(15);:F0RP=1T0LEN(A(N)):B—MID?(A( 

13 H-INPUT?(1) 

N),P,1):LPRINTB; 

14 IFH-”Y"ORH-"y"THENU=l:GOSUB45:G0T012 

64 IFB=CHR?(32)ANDLPOS(0)>65THENLPRINT:L 

15 V=1:G0SUB43 

PRINTSPACE?(15); 

16 PRINT@247,"[M]ENU”;:PRINT@287,"<SPACE 

65 NEXT 

BAR> TO CONTINUE"; 

66 LPRINT:LPRINTSPACE?(15):NEXT:LPRINTCH 

17 K—INKEY?:IFH=”"THEN17 

R$(M):CLOSE:GOSUB75:GOSUB68: BDTURN 

18 IFH=”M"ORK="m"THENCLOSE:GOSUB68:RETUR 

68 CLS:PRINT:PRINT” MAIN MENU":PRINTTA 

N 

B(7);"[F]ILE LABEL":PRINTTAB(7);"[I]PUT 

19 IFHOCHR? (32) THEN17 

NEW RECORDS":PRINTTAB(7);"[SSUPPLEMENT E 

20 G0T011 

XISTING RECORDS":PRINTTAB(7);"[D]ISPLAY 

21 G0SUB52:OPEN"Z.D0"F0R0UTPUTAS2:FORN-l 

RECORD":PRINTTAB(7);"[H]ARD COPY":PRINTT 

TOT:PRINT#2,F(N):NEXT:V-2 

AB(7);"[E]XIT FROM PROGRAM";:RETURN 

22 U-l:IFE0F(1)THENG0SUB74:GOSUB68:RETUR 

69 CLS:PRINT:INPUT"RECORD ID";K 

N 

70 IFEOF(l)THENCLOSE:GOSUB55:GOSUB75:RET 

23 K-"":CLS:PRINT:INPUT"RECORD ID";K 

URN 

24 IFK-""THENG0SUB54:GOSUB45:G0SUB43:GOT 

71 G0SUB54 

022 

72 IFK=A(1)THENRETURN 

25 IFEOF(l)THENGOSUB74:GOSUB68:RETURN 

73 GOTO70 

26 GOSUB54 : IFKOA(1)THENGOSUB43 : G0T025 

74 KILLJ:NAME"Z.D0"ASJ:GOSUB55:RETURN 

27 G0SUB45:GOSUB43:G0T022 

75 F0RN-1T0L:A(N)="":NEXT:RETURN 
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INDEX TO PCM 
July 1985 - June 1986 

This is the second index to PCM and covers the 
period July 1985 to June 1986. The only change 
from last year is that items that are contained in 
PCM ON DISK are indicated with a • and are also 
listed at the end of the index, arranged by program 
name. Items that have bar coded listings are indi¬ 
cated with a ★ , and are also listed separately. 

The number of items in each subject heading is 
listed below—the number in brackets indicates the 
total number of items published since July 1983. 

GENERAL - 19 (36) 

MSDOS - 99 (159) 

MSDOS-REVIEW 71 (97) 

PORTABLE - 28 (172) 

PORTABLE-EDUCATION - 0 (5) 

PORTABLE-GAME - 0 (13) 

PORTABLE-REVIEW - 19 (75) 


TOTAL NUMBER OF ARTICLES - 236 (557) 

PERSONAL AUTHORS - 144 (375) 

BAR CODE LISTINGS - 20 (47) 

PCM ON DISK -47 (47) 


Leslie Foster is a librarian with Dalhousie Law 
Library in Halifax, Nova Scotia. In August 1985, 
Radio Shack lent him 12 Model 100s to aid in 
reconstructing the library after a fire. 


GENERAL 

Barden, William, Jr. “In defense of BASIC." (1985, 
December) 58 

Foster, Leslie A. “Two years of PCM.’7 7985, July) 57 
— Index from July 1983 to June 1985. 

Graham, Randy. “Finding out which fare is fair.” 

(7985, July)43 — Airline schedules with a modem. 
Graham, Randy. "Of old friends, lead time and elec¬ 
tronic publishing." (7985, November) 48 


Graham, Randy. “We're talking graphics transmis¬ 
sion—get the picture?"(7985, August) 74 — Trans¬ 
ferring graphics by modem. 

Himowitz, Michael J. “Big print." (7986, April)58'k • 
— Print in large letters. 

Humphress, Danny. “Two new stars from Texas.” 
(7985, December) 10 — Introduction to the Tandy 
3000 and 600. 

Keen, Dan. "Interpreting BASIC’s interpreter.” (7986, 
March) 106 

McCormick, John. “Computer dictionary." (7986, 
June) 25 — Definitions of computer terms. 
McCormick,, John. “A good PILOT for lost pro¬ 
grammers. ’ (7986, June) 84 — Tutorial on PILOT 
language. 

Oppedahl, Carl. “Wrist terminal." (7986, April) 33 — 
Close look jat the Seiko wrist terminal. 

"PCMfest Reporter." (7986, February) 55 — Report 
on PCMfest in Princeton, October, 1985. 

"PCMfest Reporter." (7986, May) 94 — Report on 
PCMfest in Palo Alto, February, 1986. 

Sanders, Wayne. “The wind chill factor." (7986, Feb¬ 
ruary) 36 ★ • 

White, Richard A. “A brief survey of basic spread¬ 
sheet functions.” (1985, November) 36 
White, Richard A. “The car shopper’s spreadsheet." 

(7985, July) 66 — Correction, August 1985, p.31. 
White, Richard A. “Let a spreadsheet dispel the 
gloom of form creation." (7985, August) 31 
White, Richard A. “Preparing for the tax collector.” 
(7985, September) 75 — Use the spreadsheet for 
tax time. 

White, Richard A. “Spreading on more spreadsheet 
functions." (1985, December) 17 


Alsop, Brian 
(7986, May 
Model 1000. 
Alsop, Brian H 
February) 25 
Baade, Eisner 
March) 36 


MSDOS 

H. "Supercharge your Tandy 1000." 
105 — Increase the speed of the 

“Upgrade your Tandy 1000.” (1986, 
— Add a hard disk and more memory. 
• H. “Household inventory." (7986, 


Ballard, Bobby. “The integrated desk part 1." (7985, 
November) 61 — Series on DeskMate." ‘ 

Ballard, Bobby. "The integrated desk part2: To boot 
or not to boot." (7985, December) 26 
Ballard, Bobby. “The integrated desk part3: Becom¬ 
ing a 'power user’ with Telecom.” (7986, January) 

Ballard, Bobby. “The integrated desk part 4: Going 
online with Telecom—computerize your logon 
procedure with analog files.” (7986, February) 20 
Ballard, Bobby. “The integrated desk part 5: More 
help!” (7986, March) 25 — Get more out of help 
screens. 

Ballard, Bobby. “The integrated desk part 6: Tips, 
tricks and letters." (7986, April) 49 
Ballard, Bobby. “The integrated desk part 7: Turbo 
powered DeskMate.” (7986, May) 87* 

Ballard, Bobby. “The integrated desk part 8: A look 
at TEXT." (7986, June) 30 
Ballard, Bobby. "Return address label maker." (7986, 
May) 80 • 

Barden, William, Jr. “Adventures of a different sort.” 

(1985, July) 19 — Hints on sorting data. 

Barden, William, Jr. “Assembly language on the 
Tandy MS-DOS computers.” (7985, October) 27 
Barden, William, Jr. "High praise for sequential 
files.” (1985, August) 18 — Application to aid in 
typesetting. 

Barden, William, Jr. “How to make cents of your 
| MS-DOS system.” (7986, May) 96® — Methods of 
displaying numbers. 

Barden, William, Jr. “In defense of other languages.” 

(7986, February) 67 — Discussion of BASIC 
PASCAL and C. 

Barden, William, Jr. "Interfacing with the Tandy 
1000’s joystick ports." (7986, January) 34 • 

Barden, William, Jr. “The sounds of science." (7985, 
September) 11 — Discussion of sounds in the 
Model 1000. 

Barden, William, Jr. “Using Assembly Language on 
the Tandy PC’s." (7985, November) 52 
Barden, William, Jr. “What a bunch of characters!” 
(1986, June) 10» — Create new character sets on 
the screen. 

Barden, William, Jr. “What are all those strange MS- 
DOS commands, anyway?” (7986, March) 70* 
Barden, William, Jr. "What are all those strange MS- 
DOS commands, anyway part2." (7986, April) 40• 
Blair, Bruce. “The Tandy typer.”’ (7985, September) 

41 — Simplified word processor. 

Boozer, Rick. "Taking turbo powered graphics fora 
spin.” ( 1986, January) 52 — Graphics with Pascal. 
Bruey, Alfred J. “Using random files.” (7986. April) 
25* 

Chester, Kevin. “Sketch." (1985, October) 11 — 
Draw pictures on the 1000/1200. 

Covington, Robert D. "Access your disk directories 
from BASIC.” (7985, September) 34 
Covington, Robert D. "Accessing MS-DOS com¬ 
mands from BASIC.” (1985, August) 41 
Covington, Robert D. "Compiling BASIC programs." 
(7986, March) 56* — Discussion of the GW- 
BASIC compiler, and updates to DB-11 database. 
File SUBCITY in April PCM ON DISK contains 
further updates. 

Covington, Robert D. "Create a small disk zapper 
from three easy subroutines." (7985, October) 53 
— Read disk sectors from BASIC. 

Covington, Robert D. “DB11: Thesuperstore, search 
and sort system for your computer part 1." (7986 
January) 17 

Covington, Robert D. "DB11: A towering database 
system.” (7986, February) 57 • 

Covington, Robert D. "A potpourri of BIOS goo¬ 
dies." (1985, November) 41 
Covington, Robert D. “Using machine language 
subroutines in BASIC.” (1985, July) 10 
Crockett, Davy. “Video character editor." (7986, 
May) 66• — Change display on screen in Modei 
2000 . 

DuBois, Marshall K. "A handy little printer setup 
utility." (7986, February) 78• 

Goeldner, Cecil M. “A very BASIC menu." (7985, 
October) 43 — Menu utility for programming. 
Graham, Randy. “Subsequent thought on graphics 
hunting." (7985, October) 41 
Harrell, John B., III. “A batch of new ideas." (1986, 
March) 77• — Tutorial on MENU.COM. 
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TEXT POWER® 100/102 

Portable 100 Magazine: ... “THE BEST FORMATTER THERE IS FOR THE 

100“ ... is even better than ever! 

• After more than 2 years, still the most compact and still the best text 
formatter! Packed with powerful features not found in word processors 
on some desktop computers. TEXT POWER uses less than 2.7K of 
precious RAM, and is written 100% in machine language for speed 
and efficiency. 

• Now available in both parallel and serial versions, with optional support 
for International/French characters. 

• Optional compatibility for Disk Video Interface, Tandy portable drive 
(FLOPPY.CO) or Chipmunk drive. 

• TEXT POWER supports the following features: Footers and Headers 
that can be turned on/off or changed from within text, Page 
numbering, Tab characters, MERGE TEXT™, Right 

Justification, Centering, Left & Right margin control with “in-file” commands, and 
much, much more... 

• TEXT POWER also supports the following printer independant, easy-to-use 
embedded control commands: 


A B Boldface 
a C Condensed 
A D Double Strike 
A E Elite 


A F Near Letter Quality 
17cpi A G Near Letter Quality 
a H Super Script 
12 cpi a L Sub Script 


10 cpi 
12 cpi 


A U Undeline 
A W Wide/Extended 
A N Microfont 
A R Red or Italics 


1.42 
Apr 2b,1986 


CHU60 
Mon 21 
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TEXT POWER 100 


Done 
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e new 


TOP TEXT EOTT. 


> SET MENU 

At the stroke of a single function 
key, each of the 

displayed vital parameters can easily be modified. There is no 
need to reset parameters each time a document is printed, since 
TEXT POWER “remembers” the previous values stored. And 
TEXT POWER conveniently sets default parameters for standard 
usage. 

• PAGE PLOT™ 

The most powerful and time-saving feature that exists in text 
formatters for portable computers today! You can graphically see 
your formatted text before printing! And Hugo Ferreyra set the 
standard by inventing and implementing PAGE PLOT™ first in 
TEXT POWER 100, before Write-Rom, Lapword, T-Word or any 
others!!! 


DISPLAY FEATURE 

Before printing, view all the headers, footers, tabs, centering, 
merges, page numbers, and the actual formatted text without 
any of the embedded commands. Scrolling can be halted or 
resumed at any point, and important format information is shown 
at the end of every page. 


Now even better. Improvements in TEXT POWER 100 Version 1.42 over Version 1.38: 


TABs are fully supported, shown during plot and replaced with the 
correct number of non-breakable spaces. 

» TEXT files can be accessed or created from within TEXT POWER for 
increased versatility. 

► FORM FEED your printer directly from within TEXT POWERS Mam Menu 
by pressing the (LABEL) key. 

► PROGRAM FLOW is even more consistent for all functions, with vital 
parameters displayed after each page. 

• PASS COUNTER implemented to help recognize which copy is being 
processed when merge is in use. 

• DOUBLE SPACE now selected as an “in file” command to turn the 
feature ON or OFF anywhere during printing. 

• FOOTER & HEADER handling is simplified & easier to use. 


“Plot” is improved and now shows page boundaries when there is room 
on the screen. 

(.DO) files only are listed when entering any function, with a default 
filename proposed to save typing. 

START & STOP file processing anywhere within the text, using this 
embedded command. 

1 LINE FEED support is now set internally within TEXT POWER. No need 
to rely on external utilities like FIXLF. 

• (ESC) in almost every situation can be used to abort any TEXT POWER 
function. 

► ERROR HANDLING is improved. For example, PRINTER NOT READY error 
does not “HANG-UP” your Model-100 but instead beeps to warn you of 
the situation. 






































DISK POWER 100/102/200 is a stand-alone Disk Operating System for the Tandy Portable 
Disk Drive that completely replaces FLOPPY.CO, and comes with an extension to BASIC 
which can be loaded only when needed. It has operational & size advantages over any 
other operating system on the market. 


DISK POWER is the only Disk Operating System 
Written 100% in machine-language to make it UL 


TEXT POWER 100/102 


$49.95 US 


which provides all of these INNOVATIVE features. 
TRA-fast. 

DISK POWER 100/102/200 $49.95 US 


or SAVE by buying the ULTRA POWER program pack: 
To order TEXT POWER , specify configuration and printer(s) used. The basic 
printer you wish supported. All U.S. orders shipped from within the USA. Ab: 
order. Send your original cassette to the address below, and receive an updai 


: DISK POWER/TEXT POWER 100 FOR ONLY $89.95 US 

price includes support for one printer. Please add $10.00 for each additional 
isolutely no custom forms, sales tax or duty required. Add $3.00 S&H to each 
ited version of Text Power (V. 1.42) for only $24.95 U.S. plus S&H. 


No surcharge for VISA or MC To order, call TOLL FREE: 


usa (Except N Y) 1-800-448-4511 Ext. 313 new york state only 1-800-962-1480 Ext. 313 

ONTARIO & QUEBEC 1-800-255-1133 Ext. 313 


or send CHECK or MONEY ORDER to: 


ULTRASOFT INNOVATIONS 


P.O. Box 219, Sle. Anne de Bellevue, Quebec 
CANADA H9X 3R9 (514) 457-9293 (9-5 EST) 


POWER. 


File length of highlighted file. 

7 lines of actual text packed 
into the two line window. < * < 
Total FREE bytes available. 
Value of himem 


DISK 


• RAM DIRECTORY: 

— 80 character "WINDOW” 
feature for .DO or .BA files. 
Also displays TOP, END, EXE 
addresses for .CO files.- 

— Number of bytes occupied by 
an unsaved BASIC program. 

— Number of characters in the 
PASTE buffer. - 


• DISK DIRECTORY: 

—In both directories, filename extensions replaced by a single 
lowercase character. No waste of screen space on redundant 
information. This allows all 40 disk files to be displayed at 
once! No scrolling necessary. 

—Exclusive multiple file selection feature via single keystroke, to 
perform any task on upto 20 files at once! 

—“ALL” function key automatically selects as many as 20 files, 
beginning at the current cursor position, to allow Load "ALL”, 
Save "ALL”, Kill "ALL”, etc. 


• EXTENSION TO BASIC: 

— OPEN disk data (.DO) files for input, output or append. Commands 
such as EOF, Print, Input are implemented. Full support for Load, 
Save, LFiles, Merge, etc. 

— All the extended functions of DISK POWER BASIC use similar syntax 
to existing commands, so that your favorite BASIC programs could be 
converted to take advantage of the Portable Disk Drive in seconds! 

— DISK POWER provides built-in protection against system crashes 
when users try to perform two different disk functions at the same 
time! 


'd BUGGERc CALC b CHPTRld CHPTR2d 
_ ■ Ij j >I3cK N -CHPTR4d CHPTR5d MS ISiiggBR -CQNTRCd 
FSTrcJ l aj Bj K BM a ^KILBUGc: FOLLERb LETTERd 
MOHITRb NuTEscl SHiHS^SAMPLEd SCRDMPb 
SORT c iBaSfr TEST d TPIOQ c —o— 


EXTENSION TO TEXT: 

—Load & Save disk .DO files from within TEXT and TEXT 
POWER, using the familiar F2 & F3 function keys. 

EXTENSION TO TELCOM: 

—Direct access to BASIC & TEXT from inside TELCOM. Kill, 
Load, Save or Edit files without losing telephone 
communications. You can even see your files while uploading. 
With DISK POWER, it is all possible! 

24 HR. BBS SUPPORT HOTLINE: 

-Using STAT: M8N1E, ID: Disk, PW: Power (514) 457-2917 


IFLOPPVc TSCRAPc 
NOTES d TEST b 
BUDGETb 


LOADERb 
DPI00 C 
EDI00 c 


RAMKILb DATAd 
BUGGERc SAVRAMb 

1261 


Ultrasoft and Ultrasoft logos are registered trademarks of Ultrasoft Innovations Inc. Other Trade Marks: 
Irwin, Chipmunk - Holmes Eng. 


Tandy - Tandy Corp., Write-Rom - P.C.S.G. INC., T-Word - Travelling Software Inc., Lapword - Jim 




















































Harrell. John B., III. “Making magic with DOS 
menus." (1985, November) 71 
Harrell. John B., III. ‘‘More menu, a la carte!" (1985, 
December) 40 

Harrell, John B., III. "Security’s the name of the 
game." (1986, April) 75» — Password protection. 
Harrell, John B., III. "Selecting colors for your 
Tandy 2000." (1985, August) 10 
Harrell, John B., III. “Superfast displays." (1986, 
January) 67 • 

Harrell, John B., III. "What is ANSI.SYS?” (1986, 
February) 44 

Harrell. John B., III. "What makes a compatible." 
(1986, May) 41 • 

Humphress, Danny. "Connecting to ViaNet...the 
year of the network." (1985, August) 35 — Discus¬ 
sion of local area networks. 

Humphress, Danny. "dBASE tutor part 13 — once 
you get the picture what do you say?" (1985, July) 
38 

Humphress, Danny. "dBASE tutor part 14 — dMAIL 
project one." (1985, August)71 — Mailing list pro¬ 
gram. 

Humphress. Danny. "dBASEtutorpart 15 —adding 
reports and labels to our mailing list program.” 
(1985, September) 49 

Humphress, Danny. “dBASE tutor part 16 — build¬ 
ing a dBASE menu." (1985, October) 74 

Humphress, Danny. “The device driver: An MS-DOS 
power feature.” (1985, August) 63 
Humphress, Danny. "Exploring ANSI.SYS." (1985, 
September) 72 

Humphress, Danny. "Follow the yellow brick ‘path.’" 

(1985, July) 64 — Tutorial on MS-DOS directories. 
Humphress, Danny. "Prompts with style." (1985, 
October) 24 — Hints on using the PROMPT com¬ 
mand. 

Hyre, Leonard. "The electric blackboard." (1986, 
February) 10* — Mathematics exercises. 

Hyre, Leonard. "The handi 1000.” (1985, November) 
27 — Calculate materials for home improvement 
jobs. 

Hyre, Leonard. "IRA projection ."(1986, March) 46* 
Hyre, Leonard. “The land of the cave bear.” (1986, 
March) 10* — Adventure game. 

Hyre, Leonard. "The loan officer.” (1986, May) 57 • 

— Amortization schedules. 

Hyre, Leonard. "PC phone booth." (1986, June) 33 

— Mailing list, phone number directory. 

Hyre, Leonard. “Robomath." (1985, December) 71 
— Educational program to drill in math. 

Hyre, Leonard. "Typing 1000." (1985, November)1& 
— Learn to type. 

Jackson, Barb; and Jackson, Joan. "Rickety downs.” 

(1986, January) 31 • — Horse racing game. 

Kemp, H. W. "Fun with filters.” (1986, January) 48* 
— Graphics demos. Corrections, March 1986, p. 
105. 

Lee, PeterT. "Graphicsscreen dump." (1986, March) 
100* — Correction, May 1986, p. 109. 
McCormick, John. "Hitting the right keys.” (1986, 
June) 98« — Improve numeric keypad skills. 
McCormick, John. "Wooing Ms.DOS." (1986, April) 
21 — Hints on directories. 

Melski, John. "A BASIC text formatter for your 
Tandy 1000,1200 and 2000 "(1985, September) 27 
Mills, Bob. "Metric calculator.” (1986, June) 73* — 
Converting measurements with PASCAL. 

Mills, Robert C. "Galactic math war." (1986, April) 
10* — Math tutor game for the Model 1000. 
Murray, Dennis ; and Ory, Horace. "Efficient alloca¬ 
tion of hard disk storage." (7985, December) 55 
Nickols, Kevin. "Delphi bureau: ‘The’ gathering 
place for Tandy computer users." (1986, March) 
30 

Nickols, Kevin. "Delphi bureau." (7986, February) 
38 — Latest news from Delphi. 

Nickols, Kevin. “Delphi bureau.” (7986, April) 54 
Nickols, Kevin. “Delphi bureau.” (7986, May) 108 
—Uploading of files. 

Nickols. Kevin. "Uploading files to Delphi.” (1986, 
June) 97 

Petersen, Marty. “The power of Open Access.” 
(1985, September) 68 — A close look at this inte¬ 
grated program. 

Ray, J. D. "Landlord’s helper.” (7986, May) 10* — 
Rental property management. 


Ray, James. "Inflation tracker." (7986, March) 49* 
Sanders, Wayne. "The gallery.” (1985, July) 48 — 
Graphics demo. 

Sanders, Wayne. "The gallery.” (1985, August) 28 
Sanders, Wayne. "The gallery.” (1985, September) 
66 

Sanders, Wayne. "The gallery.” (1985, October) 57 
Sanders. Wayne. "The gallery." (7985, November) 
60 

Sanders, Wayne. "The gallery.” (1985, December) 
52 

Sanders, Wayne. "Thegallery.” (1986, January )66 • 
Sanders, Wayne. "The gallery.” (1986, February) 
49* 

Sanders, Wayne. "The gallery.” (7986, March) 44• 
Sanders, Wayne. "The gallery." (7986, April) 20« 
Shewchuk, John B. “StarTrek." (7986, June) 50» — 
Game. 

Stajduhar, Jerry. "The music machine.” (7986, May) 
33* — Create, modify and save songs. 

White, Richard A. "BASIC control structures." (7986, 
June) 46 — Tutorial on FOR—TO—NEXT. 

White, Richard A. "Different ways to store program 
data." (7986, May) 77 

White, Richard A. “Form 1040 in a spreadsheet." 
(7986, March) 82 

White, Richard A. “Marrying BASIC and a spread¬ 
sheet.” (1985, October) 68 
White, Richard A. "Using the spreadsheet as a sche¬ 
duling tool." (1986, January) 63 
White, Richard A. “Welcome to BASIC.” (7986, 
April) 100 — Tutorial on BASIC. 


MSDOS-REVIEW 

“Account Mate II.” (1985, July) 73 
“Accounting partner.” (7986, January) 91 
"ALPS MS-DOS utilities.” (7985, December) 80 
“Astro*-Talk.” (1985, December) 83 
“AUTOSTART." (1985, December) 77 
"The Banner Machine.” (7986, June) 105 
"BDL roast.” (7986, June) 104 
“Better BASIC.” (1985, September) 82 
“Chart master.” (1986, January) 88 
"Cheapware label maker." (7985, September) 89 
“Chuckle pops." (1986, May) 113 
"Clipper." (7986, March) 120 
“Diagram Master." (7986, February) 120 
“Diet wise." (7985, October) 91 
“Electric envelope." (7986, June) 117 
"Etch-a-mouse." (1985, October) 83 
“FABs." (1985, December) 77 
“The factory." (1986, May) 115 
“Fourcast." (7986, May) 119 
"Framework.” (7985, October) 79 
“Golden oldies.” (7985, September) 87 
“Gramarcy.” (7986, February) 123 
"Hardisk accounting series.” (7986, January) 83 
"Houston Instrument Model 695 plotter." (7985, 
July) 73 

"Infidel." (7986, April) 116 
“KeyEntry III.” (7986, June) 111 
“LeScript.” (1986, April) 103 
“Lynn payroll system.” (7985, November) 61 
"Magic menu.” (7985, October) 88 
"MAI accounts payable." (7985, November) 80 
"The management advantage." (7986, January) 90 
"Media master plus." (7986, June) 114 
“MFB-1000 multi-function board.” (1986, March) 
121 

“The minute manual for the dot matrix printer 
(book).” (7986, January) 85 
"Miracle.” (7986, April) 112 
“MITE." (7985, December) 76 
“Mlink." (7985, October) 80 
"MouseTop.” (7986, June) 107 
“MS-DOS, Volume 1, The Basics (book)." (7986, 
March) 109 

"My Word!" (7985, July) 77 
"The Newsroom.” (7986, April) 108 
"Odds calculator." (1986, June) 106 
"Offix." (7986, February) 115 
“Omniterm 2." (7985, September) 80 
“Payday.” (1985, October) 85 
“PC paintbrush." (7986, June) 102 
"PC privacy." (7985, October) 87 
"pfs:file/report.” (1985, July) 76 


“PlayWriter.” (1986, May) 110 
"Pop-Up desk set." (7986, February) 109 
"PowerText.” (7986, February) 117 
“Probaloto.” (7986, May) 112 
“Sargon III.” (7985, August) 82 
“Smart cook.” (7985, September) 90 
“SmartNotes." (7986, June) 109 
“Starclash II.” (7986, January) 86 
"Super Utility." (7986, March) 116 
“Synonym finder.” (7985, August) 81 
“Teleterm.” (7985, November) 87 
“Timeslips." (7986, June) 112 
“TuneSmith.” (7985, August) 78 
“Twentieth Century Shoebox.” (7986, March) 116 
“VoiceCommand." (1985, November) 86 
“Wishbringer." (1986, June) 113 
“Wizardry." (7986, April) 117 
“XTREE." (7985, August) 77 
"Zuckerboard.” (7986, June) 109 
"Zvert ZVT-630 Diablo Printer.” (7985, November) 
89 

“1-hour telecomputing (book).” (1986, June) 115 
“The 1040 Solution." (7986, March) 111 
“4N1-1000 board.” (1986, June) 104 


PORTABLE 

Balonis, Ronald F. "A text analyzer for the Model 
100/200." (1986, March) 95★ 

Bishop, Dan. “Color code combo.” (7986, June) 
100-** — Deductive reasoning game. 

Buchanan, Chuck. "Host your own network with 
your Model 100." (1985, November) 64 — Use the 
Model 100 for a BBS. 

Chatham, Art. "April fool!” (7986, April) 102*• — 
Appears if your files have vanished. 

Cornman, Aileen ; and Cornman, John. "It’s about 
time—Multi-clock." (7985, October) 59* — Up¬ 
grade the Model 100 timekeeping. Note: Con¬ 
tained in April 1986 PCM ON DISK. 

Cornman, John; and Cornman, Aileen "Easy errors.” 
(1986, February) 23* • — Better error messages. 

Covington, Robert D. “The portable machine - part 
6.” (7985, July) 50 — Machine language hints. 

Halcomb, Jay. "A SCHEDL enhancement." (7985, 
July) 29 ★ 

Hawk, Jim. “On the air with the Tandy 200." (7985, 
July) 41 — Using the Model 200 in the newsroom 
of a radio station. 

Henning, Michael R. “Model 100 machine code 
made easy.” (7986, June) 86-* • — Portable ma¬ 
chine language programming. 

Ingle, Frank H. “Coping with cassettes.” (7986, May) 
49 

Ireland, Nathaniel F. “Cooking with your portable." 
(7985, December) 68 — Recipe file. 

Ireland, Nathaniel F. “Portable trip companion." 
(7985, October) 38★ 

Ireland, Nathaniel F. “Your 100 takes a licking and 
keeps on ticking." (7986, May) 30* • — Indicate 
elapsed time in hundreths of a second. 

Krueger, Roger F. “The fantastic label machine." 
(7985, November) 13* — Make mailing labels. 

Larrison, John. “Super editor." (7986, April) 23* • 
— Machine code editor. 

McDowell, Linwood. “Easy keys." (7985, December) 
32* — Creative use of function keys. 

Miller, Chris. "Portable protection." (7986, January) 
79* — Hide your files on the portable. Correction, 
March 1986, p. 9. 

Oppedahl, Carl. "Emergency power for your Tandy 
600.” (7986, February) 52 

Oppedahl. Carl. "Manipulating RAM files in the 
Tandy 200.” (1985, August) 57 

Preble, Laurence D. ‘‘If X equals zero the X equals 
ten trillion." (7985, September) 39 — Discussion of 
a ‘bug’ in the Model 200 BASIC. 

Qualls, Bill. "A better input processor." (7985, Au¬ 
gust) 49 — Prevent data entry errors. 

Ramella, Richard. “Add search and replace powerto 
your portable’s text-handling functions.” (1985, 
September) 25* 

Ramella, Richard. “Bit parade." (7985, December) 
30 — Compose melodies. 

Ramella, Richard. "BOA: The main squeeze for text 
files." (7986, April) 36* • — How to compact text 
files. 
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Ramella, Richard. “Sardine.” (1986, March) 22★ — 
Pack programs to conserve space. 

Scerbo, Fred. “Portable multiple choice testgenera- 
tor.” (1985, August) 66^ 

Teague, John F. “Screen to memory to screen.” 
(1985, September) 59^ — Store and retrieve gra¬ 
phics. 


PORTABLE - REVIEW 

“Bar code drivers.” (1985, September) 85 

“BUSS.” (1986, May) 113 

“ByteFyter.” (1985, August) 83 

"C-Num and C-Sort." (1986, April) 107 

"DATA-SORT.” (1985, August) 79 

“D04MAT." (1985, December) 79 

“Exploring the Radio Shack Model 100 (book).” 

(1985, December) 84 
“FAST.” (7986, May) 117 
“Interactive Solutions.” (1986, March) 113 
“Let’s play Monopoly.” (1985, July) 79 
“Men-U-Tility.” (1985, August) 83 
“NavPIn and NavAid.” (1985, July) 80 
“Portable light.” (1986, May) Ml 
"Project scheduler.” (1985, October) 84 
“Supera." (1985, November) 83 
“Tandy Portable Disk Drive." (1986, February) 124 
“Textpro." (1985, November) 83 
“TMPC.” (1986, April) 114 
“X-TEL ."(1986, June) 116 
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Alsop, Brian H. “Supercharge your Tandy 1000." 
(1986, May) 105 — Increase the speed of the 
Model 1000. 

Alsop, Brian H. “Upgrade your Tandy 1000.” (1986, 
February) 25 — Add a hard disk and more memory. 
Baade, Eisner H. “Household inventory.” (1986, 
March) 36 • 

Ballard, Bobby. “The integrated desk part 1.” (1985, 
November) 61 — Series on DeskMate.” 

Ballard, Bobby. “The integrated desk part2: To boot 
or not to boot." (1985, December) 26 
Ballard, Bobby. “The integrated desk part3: Becom¬ 
ing a ‘power user’ with Telecom." (1986, January) 
10 

Ballard, Bobby. “The integrated desk part 4: Going 
online with Telecom—computerize your logon 
procedure with analog files.” (1986, February) 20 
Ballard, Bobby. “The integrated desk part 5: More 
help!" (1986, March) 25 — Get more out of help 
screens. 

Ballard, Bobby. “The integrated desk part 6: Tips, 
tricks and letters.” (1986, April) 49 
Ballard, Bobby. “The integrated desk part 7: Turbo 
powered DeskMate." (1986, May) 87* 

Ballard, Bobby. “The integrated desk part 8: A look 
at TEXT." (1986, June) 30 
Ballard, Bobby. “Return address label maker.” (1986, 
May) 80* 

Balonis, Ronald F. “A text analyzer for the Model 
100/200.” (1986, March) 95* 

Barden, William, Jr. “Adventures of a different sort.” 

(7985, July) 19 — Hints on sorting data. 

Barden, William, Jr. “Assembly language on the 
Tandy MS-DOS computers.” (1985, October) 27 
Barden, William, Jr. “High praise for sequential 
files.” (7985, August) 18 — Application to aid in 
typesetting. 

Barden, William, Jr. “How to make cents of your 
MS-DOS system.” (7986, May) 96* — Methods of 
displaying numbers. 

Barden, William, Jr. “In defense of BASIC." (7985, 
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Barden, William, Jr. “In defense of other languages.” 
(7986, February) 67 — Discussion of BASIC, 
PASCAL and C. 

Barden, William, Jr. “Interfacing with the Tandy 
1000’s joystick ports." (7986, January) 34• 
Barden, William, Jr. “The sounds of science.” (7985, 
September) 11 — Discussion of sounds in the 
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am, Jr. “What are all those strange MS- 
ands, anyway part2.” (7986, April) A0* 

. “Color code combo.” (7986, June) 

Reductive reasoning game. 

‘The‘Tandy typer.’” (7985, September) 
ified word processor. 

Taking turbo powered graphics for a 
», January)52 — Graphics with Pascal. 
J. “Using random files.” (7986, April) 

(fchuck. “Host your own network with 
100.” (7985, November) 6A — Use the 
for a BBS. 

April fool!” (1986, April) 102— 
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in. “Sketch." (7985, October) 11 — 
es on the 1000/1200. 
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uary) 23★ • — Better error messages, 
obert D. “Access your disk directories 
." (7985, September) 34 

Robert D. “Accessing MS-DOS com- 
BASIC." (7985, August) 41 
obert D. “Compiling BASIC programs.” 
ch) 56* — Discussion of the GW- 
piler, and updates to DB-11 database. 
TY in April PCM ON DISK contains 
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Robert D. “Create a small disk zapper 
easy subroutines.” (7985, October) 53 
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obert D. “The portable machine - part 
July) 50 — Machine language hints. 
Robert D. “A potpourri of BIOS goo- 
November) 41 
Robert D. “Using machine language 
in BASIC." (1985, July) 10 
vy. “Video character editor.” (7986, 
- Change display on screen in Model 


Jay 


rshall K. “A handy little printer setup 
6, February) 78* 

A. “Two years of PCM." (7985, July) 57 
m July 1983 to June 1985. 
cil M. "A very BASIC menu.” (7985, 
Menu utility for programming, 
idy. “Finding out which fare is fair.” 
43 — Airlineschedules with a modem, 
dy. “Of old friends, lead time and elec- 
shing.” (7985, November) 48 
dy. “Subsequent thought on graphics 
985, October) 41 

dy. “We’re talking graphics transmis- 
ie picture?” (7985, August ,174 — Trans- 
fj>hics by modem. 

“A SCHEDL enhancement.” (7985, 


B., III. “A batch of new ideas.” (7986, 
— Tutorial on MENU.COM. 

B., III. “Making magic with DOS 
985, November) 71 
B., III. “More menu, a la carte!” (7985, 

40 

B., III. “Security’s the name of the 
6, April) 75• — Password protection. 

B., III. “Selecting colors for your 
.” (7985, August) 10 
B., III. "Superfast displays." (1986, 
• 

B., III. “What is ANSI.SYS?" (1986, 
X 

B., III. “What makes a compatible.” 

41 • 


Hawk, Jim. "On the air with the Tandy 200.” (1985, 
July) 41 — Using the Model 200 in the newsroom 
of a radio station. 

Henning, Michael R. -'‘Model 100 machine code 
made easy.” (7986, June) 86+ • — Portable mach¬ 
ine language programming. 

Himowitz, Michael J. “Big print."(7986, April)58+ • 

— Print in large letters. 

Humphress, Danny. “Connecting to ViaNet...the 
year of the network.” (7985, August) 35— Discus¬ 
sion of local area networks. 

Humphress, Danny. “dBASE tutor part 13 — once 
you get the picture what do you say?” (7985, July) 
38 

Humphress, Danny. “dBASE tutor part 14 — dMAIL 
project one." (7985, August) 71 — Mailing list pro¬ 
gram. 

Humphress, Danny, “d BASE tutor part 15 — adding 
reports and labels to our mailing list program.” 
(7985, September) 49 

Humphress, Danny. “dBASE tutor part 16 — build¬ 
ing a dBASE menu.” (7985, October) 74 
Humphress, Danny. “The device driver: An MS-DOS 
power feature." (7985, August) 63 
Humphress, Danny. “Exploring ANSI.SYS." (7985, 
September) 72 

Humphress, Danny.“Followtheyellowbrick'path.”’ 

(7985, July) 64 — Tutorial on MS-DOS directories. 
Humphress, Danny. “Prompts with style.” (7985, 
October) 24 — Hints on using the PROMPT com¬ 
mand. 

Humphress, Danny. “Two new stars from Texas." 
(1985, December) 10 — Introduction to the Tandy 
3000 and 600. 

Hyre, Leonard. “The electric blackboard.” (7986, 
February) 10» — Mathematics exercises. 

Hyre, Leonard. “The handi 1000.” (7985, November) 
27 — Calculate materials for home improvement 
jobs. 

Hyre, Leonard. “IRA projection.”(7986, March) 46• 
Hyre, Leonard. “The land of the cave bear.” (7986, 
March) 10« — Adventure game. 

Hyre, Leonard. “The loan officer." (7986, May) 57• 

— Amortization schedules. 

Hyre, Leonard. “PC phone booth.” (7986, June) 33 

— Mailing list, phone number directory. 

Hyre, Leonard. “Robomath.” (7985, December) 71 

— Educational program to drill in math. 

Hyre, Leonard. “Typing 1000." (7985, November) 18 

— Learn to type. 

Ingle, Frank H. “Coping with cassettes.” (7986, May) 
49+• 

Ireland, Nathaniel F. “Cooking with your portable.” 

(7985, December) 68 — Recipe file. 

Ireland, Nathaniel F. "Portable trip companion." 
(7985, October) 38 + 

Ireland, Nathaniel F. “Your 100 takes a licking and 
keeps on ticking.” (7986, May) 80+• — Indicate 
elapsed time in hundreths of a second. 

Jackson, Barb; and Jackson, Joan. “Rickety downs." 

(7986, January) 31 • — Horse racing game. 

Keen, Dan. “Interpreting BASIC’s interpreter." (7986, 
March) 108 

Kemp, H. W. “Fun with filters.” (7986, January) 48 • 

— Graphics demos. Corrections, March 1986, p. 
105. 

Krueger, Roger F. “The fantastic label machine.” 

(1985, November) 13* — Make mailing labels. 
Larrison, John. “Super editor.” (1986, April) 28+• 

— Machine code editor. 

Lee, PeterT. “Graphicsscreen dump.” (7986, March) 
100« — Correction, May 1986, p. 109. 

McCormick, John. “Computer dictionary.” (7986, 
June) 25 — Definitions of computer terms. 
McCormick, John. “A good PILOT for lost pro¬ 
grammers.” (7986, June) 84 — Tutorial on PILOT 
language. 

McCormick, John. “Hitting the right keys.” (1986, 
June) 98* — Improve numeric keypad skills. 
McCormick, John. “Wooing Ms.DOS." (7986, April) 
21 — Hints on directories. 

McDowell, Linwood. “Easy keys."(7985, December) 
82+ — Creative use of function keys. 

Melski, John. “A BASIC text formatter for your 
Tandy 1000,1200 and 2000.” (7985, September) 27 
Miller, Chris.“Portable protection."(7986, January) 
79+ — Hide yourfiles on the portable. Correction, 
March 1986, p. 9. 
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Megabytes for Mini-Bucks 

Tandy 1000 Hard Drives 

by Hard Drive Specialist 


Shop and compare. Hard Drive Specialist has been 
building hard drive systems for years and have sold thou¬ 
sands of subsystems to satisfied Radio Shack/Tandy cus¬ 
tomers. We use the latest state-of-the-art disk drives and 
controllers. Our drives all use buffered seek logic and plat¬ 
ed media to result in almost one-fourth the average access 
times found on our competitors drives. Plated media 
results in longer platter life and high resistance to head 
crashes not found on coated media drives. We utilize high 
quality construction throughout including heavy duty 
power supplies and gold edge card connectors. Internal 
drive systems include an interface card and a half-height 
hard drive that replaces the top disk drive in both size and 
power consumption. External units include an interface 
card, case, power supply and hard drive unit. All units re¬ 
quire a memory board with DMA such as the TanPak™ 
multifunction card, or a Tandy Board, Part #25-1004. 


Hard Disk System Features: 

: All sizes rated after formatting. 

: One secondary drive may be added. 

: Error checking and correcting controller. 

: Software drivers included. 

: Buffered seek drives for improved access time. 
: Built in power up diagnostics. 

: Plated media for long disk life. 

: Gold connectors used throughout. 

: 1 year warranty. 

: Boots directly from Hard Drive. 

: Uses Tandy 1000 MS DOS. 


10 Megabyte Internal.$ 549. 

20 Megabyte Internal.$ 749. 

42 Megabyte Internal.$1349. 

10 Megabyte External.$ 699. 

20 Megabyte External.$ 899. 

42 Megabyte External.$1495. 


Ordering Information 

Use our WATS line to place your order via Visa, MasterCard, or Wire Transfer. Or, mail your 
payment directly to us. Any non-certified funds will be held until proper clearance is made. COD 
orders are accepted as well as purchase orders from government agencies. UPS ground is our 
standard means of shipping unless otherwise specified. Shipping costs are available upon re¬ 
quest. Tandy and Radio Shack are trademarks of the Tandy Corporation. TanPak, is a trademark 
of Hard Drive Specialist, a division of Compukit Corporation. 


Hard Drive Specialist 

16208 Hickory Knoll 
Houston, Texas 77059 

1-713-480-6000 

Order Line 

1-800-231-6671 



























Mills, Bob. “Metric calculator." (1986; June) 73« — 

Converting measurements with PASCAL 
Mills, Robert C. "Galactic math war." (1986, April) 
10» — Math tutor game for the Model 1000. 
Murray, Dennis ; and Ory, Horace. "Efficient alloca¬ 
tion of hard disk storage." (1985, December) 55 
Nickols, Kevin. "Delphi bureau: ‘The’ gathering 
place for Tandy computer users." (1986, March) 
30 

Nickols, Kevin. “Delphi bureau.” (1986, February) 
38 — Latest news from Delphi. 

Nickols, Kevin. “Delphi bureau." (7986, April) 54 
Nickols, Kevin. “Delphi bureau.” (7986, May) 108 — 
Uploading of files. 

Nickols, Kevin. "Uploading files to Delphi." (1986, 
June )97 

Oppedahl, Carl. "Emergency power for your Tandy 
600.” (7986, February) 52 

Oppedahl, Carl. "Manipulating RAM files in the 
Tandy 200." (7985, August) 57 
Oppedahl, Carl. "Wrist terminal." (7986, April)33 — 
Close look at the Seiko wrist terminal. 

Petersen, Marty. “The power of Open Access." 
(7985, September) 68 — A close look at this inte¬ 
grated program. 

Preble, Laurence D. “If X equals zero the X equals 
ten trillion."(7985, September) 39 — Discussion of 
a ‘bug’ in the Model 200 BASIC. 

Qualls, Bill. “A better input processor." (1985, Au¬ 
gust) 49 — Prevent data entry errors. 

Ramella, Richard. "Add search and replace power to 
your portable's text-handling functions.” (7985, 
September) 25^ 

Ramella, Richard. "Bit parade." (1985, December) 
30 — Compose melodies. 

Ramella, Richard. "BOA: The main squeeze for text 
files." (7986, April) 36^ • — How to compact text 
files. 

Ramella, Richard. “Sardine." (7986, March) 22* — 
Pack programs to conserve space. 

Ray, J. D. “Landlord’s helper." (7986, May) 10« — 
Rental property management. 

Ray, James. "Inflation tracker.” (7986, March) 49* 
Sanders, Wayne. "The gallery.” (7985, July) 48 — 
Graphics demo. 

Sanders, Wayne. “The gallery." (7985, August) 28 
Sanders, Wayne. "The gallery." (7985, September) 
66 

Sanders, Wayne. "The gallery." (7985, October) 57 
Sanders, Wayne. "The gallery." (7985, November) 
60 

Sanders, Wayne. "The gallery." (7985, December) 
52 

Sanders, Wayne. "The gallery.” (7986, January) 66» 
Sanders, Wayne. "The gallery." (7986, February) 
49 • 

Sanders, Wayne. “The gallery.” (7986, March) 44« 
Sanders, Wayne. “The gallery." (7986, April) 20• 
Sanders, Wayne. "The wind chill factor." (7986, Feb¬ 
ruary) 36 ★ • 

Scerbo, Fred. "Portable multiple choice test genera¬ 
tor." (1985, August) 66^ 

Shewchuk, John B. “Star Trek.” (7986, June) 50* — 
Game. 

Stajduhar, Jerry. "The music machine." (7986, May) 
33* — Create, modify and save songs. 

Teague, John F. "Screen to memory to screen." 
(7985, September) 59* — Store and retrieve gra¬ 
phics. 

White, Richard A. "BASIC control structures." (7986, 
June) 46 — Tutorial on FOR—TO—NEXT. 

White, Richard A. "A brief survey of basic spread¬ 
sheet functions.” (7985, November) 36 
White, Richard A. “The car shopper's spreadsheet." 

(1985, July) 66 — Correction, August 1985, p. 31. 
White, Richard A. "Different ways to store program 
data.” (7986, May) 77 

White, Richard A. “Form 1040 in a spreadsheet." 
(7986, March) 82 

White, Richard A. “Let a spreadsheet dispel the 
gloom of form creation." (7985, August) 31 
White. Richard A. “Marrying BASIC and a spread¬ 
sheet." (7985, October) 68 
White, Richard A. “Preparing for the tax collector.” 
(7985, September) 75 — Use the spreadsheet for 
tax time. 

White, Richard A. "Spreading on more spreadsheet 
functions." (1985, December) 17 


White, Richard A. "Using the spreadsheet as a sche¬ 

duling tool." (1986, January) 63 
White, Richard A. “Welcome to BASIC.” (7986, 
April) 100 — Tutorial on BASIC. 


BAR CODE LISTINGS 

Balonis, Ronald F. “A text analyzer for the Model 
100/200." (7986, March) 95^ 

Bishop, Dan. "Color code combo," (7986, June) 
100* • — Deductive reasoning game. 

Chatham, Art. “April fool!" (7986, April) 102* • — 
Appears if your files have vanished. 

Cornman, John; and Cornman, Aileen “Easy errors." 

(1986, February) 23+ • — Better error messages. 
Halcomb, Jay. "A SCHEDL enhancement." (7985, 
July) 29+ 

Henning, Michael R. "Model 100 machine code 
madeeasy."(7986, June) 86+ • — Portable mach¬ 
ine language programming. 

Himowitz, Michael J. “Big print." (7986, April)58+ • 

— Print in large letters. 

Ingle. Frank H. "Coping with cassettes." (7986, May) 
49 ★ • 

Ireland, Nathaniel F. "Portable trip companion." 
(1985, October) 38* 

Ireland, Nathaniel F. "Your 100 takes a licking and 
keeps on ticking." (7986, May) 30+• — Indicate 
elapsed time in hundreths of a second. 

Krueger, Roger F. “The fantastic label machine.” 

(7985, November) 13^ — Make mailing labels. 
Larrison, John. "Super editor." (1986, April) 23+ • 

— Machine code editor. 

McDowell, Linwood. “Easy keys."(7985, December) 
32+ — Creative use of function keys. 

Miller, Chris. “Portableprotection." (7986, January) 
79+ — Hide yourfileson the portable. Correction, 
March 1986, p. 9. 

Ramella, Richard. "Add search and replace powerto 
your portable's text-handling functions." (1985, 
September) 25* 

Ramella, Richard. “BOA: The main squeeze for text 
files.” (1986, April) 36+ • — How to compact text 
files. 

Ramella, Richard. "Sardine." (7986, March) 22+ — 
Pack programs to conserve space. 

Sanders, Wayne. “The wind chill factor.” (1986, Feb¬ 
ruary) 36-* • 

Scerbo, Fred. "Portable multiple choice test genera¬ 
tor." (7985, August) 66^ 

Teague, John F. "Screen to memory to screen." 
(7985, September) 59+ — Store and retrieve gra¬ 
phics. 


PCM ON DISK 

ADDRESS Ballard, Bobby. “Return address label 
maker." (7986, May) 80* 

BARDEN Barden, William, Jr. “Interfacing with the 
Tandy 1000’s joystick ports.” (7986, January) 34 • 

BARDEN Barden, William, Jr. "What are all those 
strange MS-DOS commands, anyway?" (7986, 
March) 70 • 

BARDEN Barden, William, Jr. “What are all those 
strange MS-DOS commands, anyway part 2.” 
(1986, April) 40« 

BARDEN Barden, William, Jr. “How to make cents 
of your MS-DOS system." (1986, May) 96« — 
Methods of displaying numbers. 

BARDEN Barden, William, Jr. “What a bunch of 
characters!” (7986, June) 10* — Create newchar- 
acter sets on the screen. 

BEAR Hyre, Leonard. "The land of the cave bear." 
(7986, March) 10* — Adventure game. 

BIGPRINT Himowitz, Michael J. "Big print." (7986, 
April) 58^ • — Print in large letters. 

BOA Ramella, Richard. “BOA: The main squeeze for 
text files." (7986, April) 36^ • — How to compact 
text files. 

CLOCK Cornman, Aileen ; and Cornman, John. "It's 
about time—Multi-clock."(7985, October) 59 • — 
Upgrade the Model 100 timekeeping. Note: Con¬ 
tained in April 1986 PCM ON DISK. 

COMBO Bishop, Dan. “Color code combo.” (7986, 
June) 100*» — Deductive reasoning game. 


COPING Ingle, Frank H. “Coping with cassettes.” 
(7986, May) 49* • 

DESK Ballard, Bobby. “The integrated desk part 7: 

Turbo powered DeskMate.” (1986, May) 87 • 
DOSBOOT Harrell, John B., III. "Superfast dis¬ 
plays." (7986, January) 67• 

DOSBOOT Harrell, John B., III. “A batch of new 
ideas." (7986, March) 77 • — Tutorial on MENU.- 
COM. 

DOSBOOT Harrell, John B., III. "Security’s the 
name of the game.” (7986, April) 75 • — Password 
protection. 

DOSBOOT Harrell, John B., III. "What makes a 
compatible.” (7986, May) 41 • 

EASY Henning, Michael R. “Model 100 machine 
code made easy." (7986, June) 86* • — Portable 
machine language programming. 

ELECTRIC Hyre, Leonard. "The electric black¬ 
board." (7986, February) 10* — Mathematics 
exercises. 

ERRORS Cornman, John ; and Cornman, Aileen 
“Easy errors.” (7986, February) 23+ • - Better 
error messages. 

FILTERS Kemp, H. W. "Fun with filters." (7986, Jan¬ 
uary) 48 • — Graphics demos. Corrections, March 
1986, p. 105. 

FOOL Chatham, Art. “April fool!" (7986, April) 
102* • — Appears if your files have vanished. 
GALLERY Sanders, Wayne. “The gallery.” (7986, 
January) 66 • 

GALLERY Sanders, Wayne. “The gallery." (7986, 
February) 49 • 

GALLERY Sanders, Wayne. “The gallery." (7986, 
March) 44 • 

GALLERY Sanders, Wayne. “The gallery." (1986, 
April) 20 • 

HOUSE Baade, Eisner H. “Household inventory." 
(1986, March) 36* 

INFLATE Ray, James. “Inflation tracker." (1986, 
March) 49 • 

IRA Hyre, Leonard. “IRA projection." (7986, March) 
46 • 

KEYS McCormick, John. "Hitting the right keys." 
(7986, June) 98« — Improve numeric keypad 
skills. 

LANDLORD Ray, J. D. "Landlord's helper." (1986, 
May) 10» — Rental property management. 

LOAN Hyre, Leonard. "The loan officer.” (1986, 
May) 57* — Amortization schedules. 

MATHWAR Mills, Robert C. “Galactic math war." 
(7986, April) 10* — Math tutorgamefor the Model 
1000 . 

METRIC Mills, Bob. "Metric calculator.” (7986, June) 
73* — Converting measurements with PASCAL. 
MUSIC Stajduhar, Jerry. “The music machine.” 
(7986, May) 33* — Create, modify and save 
songs. 

PHONE Hyre, Leonard. "PC phone booth." (1986, 
June) 33 — Mailing list, phone number directory. 

PSU DuBois, Marshall K. “A handy little printer 
setup utility." (7986, February) 78• 

RANDOM Bruey, Alfred J. "Using random files.” 
(1986, April) 25 • 

RICKETY Jackson, Barb ; and Jackson, Joan. "Rick¬ 
ety downs." (7986, January) 31 • — Horse racing 
game. 

SCRNDUMPLee, PeterT. “Graphicsscreen dump." 
(7986, March) 100* — Correction, May 1986, p. 
109. 

SUBCITY Covington, Robert D. “DB11: A towering 
database system." (7986, February) 57• 

SUBCITY Covington, Robert D. "Compiling BASIC 
programs.” (7986, March) 56* — Discussion of 
the GW-BASIC compiler, and updates to DB-11 
database. File SUBCITY in April PCM ON DISK 
contains further updates. 

SUPER Larrison, John. "Super editor." (7986, April) 
23+ • — Machine code editor. 

TICKING Ireland, Nathaniel F. “Your 100 takes a 
licking and keeps on ticking." (1986, May) 30+ • 

— Indicate elapsed time in hundrethsof a second. 
TREK Shewchuk, John B. “Star Trek.” (1986, June) 
50« — Game 

VIDEO Crockett, Davy. "Video character editor." 
(1986, May) 66« — Change display on screen in 
Model 2000. 

WINDCHILL Sanders, Wayne. "The wind chill fac¬ 
tor." (7986, February) 36*» 
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Contributing Editor 


I previously talked about 
multiple levels with the 
program and stated tha 
solution presented w 
“work-around” the li . 
tions. The technique* 
using interactive batch files are u 
but this is less than the optimal 
tion for your menu needs. 

My original Menu has some r 
limitations, too. I had two diffje 
versions depending on your sp 
machine. I had to write a sp 
program for installing Menu. 
was no really easy way to exit 
Menu. It was written in asse. 
language and, therefore, was hard 
maintain. 

Menu always used the command 
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processor from the disk currently in 
use when it was loaded. This feature 
seems relatively insignificant, but you 
can install a RAM disk and copy 
COMMAND -COM to it. Then, whenever 
the command processor needs load¬ 
ing, the system is able to perform this 
task much faster than loading it from 
disk. 

Super Menu 

Listing 1 contains the c source 
listing for a revised version of Menu 
that runs on any Tandy MS-DOS or 
IBM PC compatible, including the 
Tandy 2000 computer without change. 
In the following paragraphs, I will 
explain the differences between this 
version and the previous version. 

I wrote the revised version of Menu 
in c so I could devote my time to some 
nicer features without having to worry 
over the details of writing the assembly 
language code. I also wanted to intro¬ 
duce you to another popular high- 
level language as an alternative to 












































Turbo PASCAL. Using C does have a 
penalty in increased code size and 
slower execution speed, but the differ¬ 
ence is not enough to worry about, 
considering the advantages. 

I used Manx’s Aztec-C86 compiler 
for this project. You can obtain this 
compiler in a number of configura¬ 
tions and it is an excellent compiler for 
any program development. Aztec 
produces exceptionally small com¬ 
piled programs and runs as fast (and 
faster in some cases) than Microsoft’s 
Version 3. If you are considering C for 
a new language to learn, this is an 
exceptional product and Manx also 
has a C learning system and interpreter 
that is heavily related to their com¬ 
piler. 

Because each compiler implements 
non-standard library features in dif¬ 
ferent ways, I have included a descrip¬ 
tion in the comments of Listing 1, 
illustrating the Aztec function name 
and its usage. Most current C compil¬ 
ers implement these same functions, 
only with different names and calling 
sequences. Portability to another 
compiler should be easy. 

What’s New with Menu Version 2 

I never liked the klutzy installation 
method used with the first version of 
Menu. I would start to change the 
installation on someone’s computer 
and never had MENU INST. BPS around 
when I needed it. I often had to at¬ 
tempt a modification with Debug — 
not the most desirable circumstances. 
The new Menu uses a set-up file con¬ 
sisting of plain ASCII text created 
with Edlin or any word processor 
capable of writing a DOS text file. 
Later, I’ll describe how to build this 
file. 

The previous Menu installation 
would have supported multiple levels 
of menus if you wanted to install a 
version for each level and could de¬ 
pend on a CTRL-BREAK. (or CTRL-C) to 
terminate the secondary levels. I die 
not like this idea, mainly because the 
concepts were too difficult to explain 
to the person who just opened his 
computer box. Menu was meant to 
relieve stress and anguish, not create 
it! 

The new version expects to find the 
file SETUP.MNU in the current direc¬ 
tory for initialization. You can also 
execute Menu with the complete path¬ 
name for the set-up file on the com¬ 
mand line. For example, MENU C:\ 
D 05 \UTIL\SE COND.SET executes 



Someday, our 


In addition to a price you can afford more easily: 

’A buy-back policy*. to insure you against a good idea that turned out to be a mistake 
or even if you simply “changed your mind”. 2 An exchange, for a new one, in the rare 
event that yours should prove to be a “lemon”. ‘Credit card purchasing convenience 
for speed and safety plus ‘an additional discount for cash-with-order buyers and >a 
CALL-FREE number so you can get our prices free (except Texas). 6 A price quote 
which has NO ROAD-FREIGHT charges added later, we pay the freight and 7 fast 


* For a small restocking fee. 


CUSTOMER SERVICE/QUESTIONS ABOUT 

YOUR ORDER and in TEXAS 1-817-573-4111 

(9 am-5 pm TEXAS TIME MONDAY-FRIDAY) 

Fort Worth Computers 
377 Plaza 

Granbury, Texas 76048 
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shipping, usually next business day. 8 A same-day “rush service” for late satisfaction 
and 9 the assurance that repeat-customers exceed new one s means great satisfaction. 
'"References given upon request, to prove our bona-fides 

Tandy computers are created equal. . .all retailers are not. 


Did you get “the rest of the story” before you placed you * order? 

(. . .good thinking. . .) 


VISA 


AMERICAN! 

■gm 


n_n-r'| i_n_r| 

FORT WORTH COMPUTERS 

L — - 1 


(WE ARE SERIOUS ABOUT SAVING YOU MONEY) 

Located 30 miles from Ft. vVorth 


For 

Latest 

Prices 


(1-800) 433-S-A-V-E 


Menu and looks for the initialization 
file SECOND.SET on the hard disk 
Drive C in the UTIL subdirectory of 
the DOS subdirectory. 

The set-up file contains the screen 
colors, time delay, title and menu 
options. Up to 24 options can be set 
in the menu and each option can 
specify a complete program name or 
batch file, including parameters. I got 
tired of the cryptic batch files (A, B, 
C, etc.) after a while with the older 
version. If you use batch files for the 
menu options (you really should use 
them to manage the subdirectories), 
they can now be given descriptive 
names so you will be able to remember 
them later. Floppy disk users will 
appreciate this the most as it totally 
frees them from having to use batch 
files without renaming their program 
files. 

This version solves another big 
gripe that floppy disk drive users (and 
some hard disk users, too) have ex¬ 
pressed. The original version was 
capable of formatting a floppy disk in 
Drive A only. Menu now gives you the 
choice of Drive A or B. 

Menu does not allow you to exit to 
the DOS command level. Users most 
often wanted only to execute a single 
command and return to the menu. 
Menu now provides a full “DOS 
window,” which executes the single 
DOS command typed. Once Menu 
executes the command, the screen is 
left intact for you to read and a prompt 
to press any key is written an the 
bottom screen line. 

There is an “escape mechanism” — 
press ALT-1 and you exit the current 
Menu shell. This is also the method 
used to exit from a secondary menu 
level back to the primary level. You 
can also use the DOS window to 
execute the command processor. Type 
COMMAND and press ENTER — you will 
be at the DOS command level until 
you type EXIT. 

The final improvement provides the 
capability of loading the command 
processor from a RAM disk or any 
alternative other than the boot disk. 
When MS-DOS initializes, it creates 
the environment variable COMSPEC 
with the full pathname containing the 
location of the DOS command proces¬ 
sor. Type the DOS command SET after 
booting the system and see what you 
have installed. The Aztec-C system 
function automatically searches the 
current program environment and 
uses the command processor from the 
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location specified. 

Install your RAM disk driver per 
normal instructions. You only need 
about 16K to 27K of disk space de¬ 
pending on your DOS version of 
COMMRND .COM — look at a directory 
listing containing COMMRND.COM to 
find out. Next, place these two com¬ 
mands in yourRUTOEXEC.BRT file just 
prior to executing the new version of 
Menu : 

COPY COMMRND.COM drive : 

SET C0MSPEC=rfrm?: \C0MMRND.C0M 

Drive is the drive designation for 
your RAM disk. 

Any time Menu executes one of the 
options, it loads the DOS command 
processor from the location specified 
by COMSPEC. This is a lot quicker than 
loading it from disk. 

Initial Menu Setup 

Load your favorite DOS text pro¬ 
cessor (Edlin) or any word processor 
capable of generating a DOS text file. 
The first five entries are numeric and 
contain the colors and time delay for 
menu. The first four are the screen 
colors and are in hexadecimal. For the 
Tandy 1000, 1200 and 3000, these 
colors reflect the background and 
foreground of each character and use 
the same numbering scheme as pres¬ 
ented in the original article (November 
1985, Page 71). For the Tandy 2000, 
each represents a single number, also 
as previously explained. 

Color 1 is the pop-up window con¬ 
taining the formatting message and 


part of the DOS window. Color 2 is the 
second format message and the main 
color for the DOS window. Color 3 is 
the menu body and text. Color 4 is for 
the title lines at the top and bottom of 
the menu. For the Tandy 2000, colors 
1 and 2 specify the highlight back¬ 
ground and foreground colors, and 
colors 3 and 4 specify the normal 
background and foreground colors. 

The fifth number is in decimal and 
specifies the number of seconds to 
delay prior to protecting the screen 
with the flashing prompt. These 
numbers must be separated by a 
“white space” character: a blank, tab 
or line separator. I put each number on 
a separate line for clarity. 

The next line of the set-up file 
contains the title for your menu and 
can be any character string up to 78 
characters long. It is on a single line 
by itself — just type the title text. 
Following the title, each menu entry is 
listed with its corresponding com¬ 
mand. 

The menu text for each item may be 
any text string up to 35 characters in 
length. Each menu item must be fol¬ 
lowed by a command string that is 
permanently assigned to that item. 
Menu items are positional. Where 
they appear in the set-up file estab¬ 
lishes the letter assigned to that op¬ 
tion. If you are going to skip over 
several menu option letters, that’s fine 
— just remember to leave two blank 
lines for each item skipped. 

Up to 24 distinct command options 
can be specified for each menu. You 
may stop wherever you want to — 


Menu automatically fills out the re¬ 
mainder of the list with blank options. 
If an error is detected in the menu 
options. Menu displays the last text 
item read and terminates in error. 

Write the set-up file out to disk and 
you are all set to go. One last thing, 
you must also rename FDRMRT. COM to 
FMT.CDM. I still believe in this modest 
form of disk protection enough to use 
it in the revised Menu. 

Conclusion 

Menu contains all of the C code for 
rapidly displaying text to the video 
screen. See my “Superfast Displays” 
article (January 1986). I modified this 
code to recognize the difference be¬ 
tween a Tandy 2000 and an IBM- 
compatible computer. With this mod¬ 
ification, I can use the same identical 
code for all machines. 

I think the C source code is fairly 
well-documented and easy to read as 
it is. If you try to convert the code to 
your compiler and use it, C is case- 
sensitive — the source must be typed 
as it appears. Please write with any 
questions or send them to me via 
Easyplex mail on CompuServe — my 
user ID is 73016,1326. □ 




^ jm 


-■fist 


BANNER MACHINE 


Create useful signs for: 

• Business Presentations 

• Employee Announcement! 

• Product Information 
(for convention booths) 


(PC & compatibles) 
Professional quality signs up to 14” tall by any length. 
Mix letter sizes and fonts on the same sign in one pass. 
10 letter styles in 8 sizes from 3/4” to 6 1 


The BANNER 


fonts , graphic 



SPECIAL OFFER! 

4NER MACHINE (with 4 lor 
)'ne pass, symbols. 20 shades & 12 borders! $79.95 
/2” high Font Disk (6 additional fonts & 18 borders) $79.95 
ed back- Complete package $149.95 . ■ 

■KB800 762-5645 


can be 


Cardinal Software 14840 Build America Drive, Woodbrldge, VA 22191 Into: (703) 491-6494 
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/*VoVV<'*>WcVoV*yc*VoVVc**Vc**VoV*> , oV**yr*VoV*>V*’ 
* 


The listing: 

^WrVfVoVVf**yfVf**Vc’*>VVoV***V^>V’>VyoV*VoV*******'>V*******y(' 


* 

>v 

Vr 

* 


MENU Ut 
Written by: 

yryf*ycyf*yfyfyfy<'yfy<’*y«'*y r y f y f *y c y f y f **y f y f y oV *y^^^. 

/* :bk=0 */ 


ility Shell 
-CDR J. B. Harrell 

*yfyryoV*yc*yoV*yr>vyfyovyr*yov^Wf*yfyr****yryfyov***>vyo'ov**>v / 


/VoV^„V*VoWcVoV**VWoV**V«V*V„VVrtoV****foV***lv**********VoV**^****>V***Vo'oWoV*****,'oV******* 


Documentation of Aztec-C86 compiler library specific functions 


* 

* 

>v 
* 

* 

* scr_call(ax,bx,cx,dx) is an Azt 

* Interrupt (INT 10H) with the AX 

* values passed as parameters to 


:ec function to perform a Video Control 
BX, CX, and DX registers set to the 
the function call. 


* 

* 

* 

>v 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

>v 

* 

* 

* 

>v 

>v 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

>v 

* 

>v 

* 

* 

* 


scr _P°ll() is an integer functio; 
using INT 16H and returns the v$. 
-1 for no key, -2 for Ctrl-Break 
return their scan code plus 128 


>n which interrogates the keyboard 
Alue of the key pressed, if any, or 

Extended keys such as function keys 


scr getcO is an integer functio 
using INT 16H and returns the v; 
a key to be pressed. scr_getc() 
function keys as above for scr ] 


>n which interrogates the keyboard 
alue of the key pressed. It WAITS for 
returns -2 for Ctrl-Break and handles 
,poll(). 


scrputsQ and scr_printf() are 
equivalent of the normal C libr^i 
BIOS INT 10H calls. These funct: 
screen attribute to display text: 


Aztec functions which perform the 
ry puts() and printf() functions using 
ions will also use the currently defined 
in colors. 


scr _l° c (&row,&col) uses BIOS INt 
location and set the parameter 


10H to retrieve the current cursor 
addresses specified. 


scr _curs(row,col) uses BIOS INT 
location specified by "row,col”. 

sysint(int,&iregs,&oregs) sets 
in the structure "iregs" and exe 
returned register values are sto 

system(str) executes the command 
command processor (COMMAND.COM) 
environment variable "COMSPEC”. 


1J?H to set the system cursor to the 


he CPU registers to the values specified 
cutes software interrupt ”int”. The 
red in "oreg". 

string passed as the parameter. The DOS 
is loaded from the file identified by the 
Null strings will not be executed. 


outportb(port,byte) outputs the :>yte specified to the CPU port. 


peekb(offset,segment) is an inte£ 
location specified by "segment:o 

pokew(offset,segment,word) store 
specified by "segment:offset". 


er function returning the byte stored in 
fset". 

the word specified at the word location 


**>vyr*yryr*yHr*yr**yp*yf*yf*yf***Vlr*>V*yV****** 

#include <stdio.h> 

#define CLS scr_call(0x0600 

IOS call */ 

#define CURS0R0N scr_call(0x0100, 

V 

#define CURS0R_0FF scr_call(0 x 0100, 

V 


**yf*yf^w<*>v*yfyc>vyf>v>v>vyr>vyry<*yr>v*yf*yovyc*>vynv**^v**yfy< / 


0x0700,0,0xl84F) 
0,on_value,0) 

,off_value,0) 


/* B 

/* BIOS call 
/* BIOS call 
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#define TRUE 1 

#define FALSE f> 

#define TANDY20PP 1 

#define IBMMONO 2 

#define IBMCOLOR 3 

#define ESCAPECHR fJxfB /* currently defined as the ALT-1 key 

/* using Aztec's notation of 128 
/* plus the scan code of the key 

struct regs ( /* used for "sysint" communications 

int AX, BX, CX, DX, SI, DI, DS, ES; 

); 


*/ 

*/ 

*/ 

*/ 


/* 

>v 

* 

* 

* 

* 

*/ 


The constants listed below are values used by the Aztec-C86 run-time 
system to control allocation of the stack and heap. You are also 
able to force the compiled program to generate the stack below t e 
heap, decreasing the size of the execuatble code. 


int _STKSIZ = 128; 
int _HEAPSIZ = 128; 
int STKLOW = 1; 


/* stack size in paragraphs 

/* heap size in paragraphs ' 

/* Force stack below heap (small memory model only) v / 


/* 

* 

* 

>v 

*/ 

int 

int 

int 

int 

int 

int 

int 

int 

int 


These constants are used by the video display routines used in MENU 


SMODE =3; /* Assumed video screen mode, reset by init_video() 

Video Mem; /* Segment address for video display RAM 

vflag T /* state variable containing current video mode 

attri { ); /* Current character attribute value 

norma l! /* Actual attribute for "normal video" 

revrs; ' /* Actual attribute for "revers video" 

h-lllte* /* Actual attribute for "highlight video 

rhilite; /* Actual attribute for "reverse highlight video" 

on_value, offvalue;/* Cursor control values 


int nor = 1; 

/* Local 

int rev = 2; 

/* 

int hnor = 3; 

/* 

int hrev = 4; 

/* 

/* 

* The following data items 

* setup file (either SETUP. 

* command line. 

* 

*/ 


int NORMAL; 

/* Color 

int REVRS; 

/* 

int HILITE; 

/* 

int RHILITE; 

/* 

int TDELAY; 

/* Time < 

char title[ 60] ; 

/* Title 

char menuitems[26][38]; 

/* Menu i 

char menucommand[24] [50] ;/* Menu 


attribute 


selection 


values 


values read 


file 


SETUP.MNU 


/« w ltll uie cauc p i- -- 

/* are reserved for formatting disks and the DOS 
/* command window 


*/ 

*/ 

V 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

V 

*/ 

*/ 

*/ 

*/ 


int ch, ch2, screenflag; 

long starttime, lasttime, thistime, gettime(), 

char cmd[8p]; 

char setupfile[63]; 

char ^prompt - "Press a letter key for your selection ; 
char *menuver — "MENU Version 2.3"; 
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CURSOR ON; 


^*****,V*yo'r/oV*******************V f ***************VoWo'oWoV* 


* 

* 

* 


init_menu() 

Initialize the menu constants by reading the data from the 
appropriate setup file. 


* VoV ****************************************Vf****************^oV********VoV*****/ 

init_menu() 

{ 

FILE *setup, *fopen() ; 
int i; 

char *index(), *cp; 
char buffer[80]; 
char *fgets(); 

cls(); 

scr_puts(menuver); 

scr_puts ("Written by John B. Harrell"); 


strcpy(buffer,"A. "); 

for ( i - ff; i < 26; i++ ) { 

strcpy(menuitems[i],buffer); 
buffer [(?]++; 

} 


/* Initialize initial letters of V 
/* MENU entries, "A" through "Z" */ 


if ( (setup = fopen(setupfile,"r")) =- NULL ) ( 

scr_printf("Setup file <%s> not found!",setupfile); 
exit(1); 

} 

if ( fscanf(setup,"%x %x %x %x %d", 

&NORMAL,&REVRS,&HILITE,&RHILITE,&TDELAY) != 5 ) ( 
scr puts("Error in setup file numeric color input:"); 

scr puts(” Required input is four numbers in hexidecimal ), 
scr puts(" representing the screen colors followed by one ); 
scr puts(” number in decimal representing the time delay.”); 
scr puts(” These numbers must be separated by blanks, tabs"); 
scr puts(" or on a separate line."); 


} 


exit(l); 


if ( getc(setup) — EOF ) ( „ 

scr_puts("Error in setup file text options at title line ), 

exit(l); 

) 


/* 

* 

* 

* 

* 

* 

*/ 


In the following code segment, MENU reads the setup file and 
extracts the text entries and commands. Note that fgetsQ will 
return a string terminated with ’\n’ and the program uses 
indexQ to locate this character and replace it with \P 


if ( fgets(buffer,78,setup) == NULL ) ( 

scrputs("Error reading menu title"); 
exit(1); 

} 

cp = index(buffer,’Xn'); 

*cp = 'XJ?' ; 
strcpy(title,buffer); 


for 


( i 

/* 

* 

* 

* 

* 

* 

* 


- ft; i < 24; i++ ) (. 

Up to 24 menu entries may be present. An end of file [fgetsQ 
returns a NULL value] will be received if less are present and 
this terminates the loop. If a menu text entry is present, the 
command text must also be present or this is signaled as an error 
condition. Menu text entries may be 35 characters long and 
command text may be up to 5ff characters^_ 
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Check Out Our Systems — High QUALITY TURBO motherboard at the LOWEST prices. 
Our hard drive systems have aXTRA megabytes of FREE storage — CALL 

(more megabytes for less megabucks) 

Our monitors are high resolution TTIi — They even have their own tilt and swivel base FREE 
Powered by a heavy duty power supply, and offering TRUE — 8mi« turbo speed 

ONE FULL YEAR WARRANTY 


COMPARE OUR SYSTEMS - fUR^^heCOMP^mON 





SYSTEM F 
FLOPPY SYSTEM 

$899.95! 

System H.D. 

HARD DRIVE SYSTEM 
22 MEGABYTE SYSTEM 

$1,399.95! 


Dual Speed CPU — 4.77 AND 8whzTURBO 
IBM COMPATIBLE 


640 K memory 
8 slot motherboard 
150 Watt Power Supply 
Monochrome TTL Card 
Monochrome Display High Res. 
Tilt and Swivel Base Monitor 
Serial port (2nd port opt.) 


2 parallel ports 
Clock calendar 
Game Port 
Keyboard 5151 style 
Ram spooler 
Printer spooler 
DOS 2.11 
G.W. Basic 


Tol[ Free Ordering 1-800-343-8841 


TURBO M/A 7— COMPLETE SYSTEMS STARTING AT$2,359.95!!! 

ONE FULL YEAR WARRANTY 

Comes Complete with 80286 processor 
6 and 8 Mhz switch Selectable 
8 Slot Motherboard 
192 Watt Power Supply 
1.2 Megabyte Floppy Drive 

1 Full Megabyte of Memory on Motherboard 

2 Parallel Ports — 2 Serial Ports 
Clock Calendar 

Hercules Compatible Monochrome Card 
Monochrome Display-High Resolution 
Tilt and Swivel Base 
AT Keyboard 



ADD-IN BOARDS TO HELP YOU BUILD YOUR SYSTEM 


TURBO-M Motherboad 
Dual Speed 


$199.95 


150 Wall 
Power Supply 


$79.95 


Monochrome Graphics 
Card with 
Printer Port 


$79.95 


Multi Function Card with 
Space for 384K of 
Memory. Serial Port. 
Parallel Port Clock 
Calendar. Game Port 

$79.95 


Floppy I/O Card 
Controls Two Floppy 
Drives, Serial Port 
Parallel Port Clock 
Calendar Game Port 

$99.95 


5151 Compatible 
Keyboard with Separate 
Cursor and 
Number Pads 

$89.95 


Winchester Hard 
Drive Controller 


$134.95 


hardware and easy to follow instructions. 

6 megabytes .... ia! d» .starts at $229.95 

11 megabytes.... 

22 megabytes— 


starts at $349.95 
starts at $459.95 


Monochrome Monitor 
with High Resolution 
Tilt/Swivel Base 


$159.95 


10 Megabyte and 20 Megabyte Drives 
Complete System 
Drive, Controller. Cables 
and easy to follow 
instructions. 

$349.95 — $459.95 


Floppy Drive Card 
Control up to 
Four Drives 


$39.95 


P.C.DOS 3.1 


$80.00 


Color Graphics 
Card with 
Printer Port 


$94.95 


Flip Top Cabinet 
with Speaker 


$49.95 


MEGADISK™ HARD DRIVES 

Our Hard Drive Systems Are Compatible With 
IBM PC and AT, HEATH/ZENITH, COMPAQ, COLUMBIA, PC CLONES, TAVA, EAGLE 
TRS/80 Models I / III / IV / 4D / 4P / MAX 80 / COLOR COMPUTER, Tandy 1000 

Systems come complete with drive, controller, cables, Systems come complete with one free software driver for TRSDOS 6, 

- - i LDOS 5.1.x, DOSPLUS 3.4/4, or NEWDOS 80.CP/M is available. 

6 megabytes.$399.95 

10 megabytes. A c\ .$599.95 

20 megabytes. cSy .$799.95 

REMOVABLE MEDIA SPECIAL 40 megabytes ... S1 $ 29a95 

5 Megabyte Cartridge Hard Drive Now 5 megabyte removable w/30 or 40mb 

$399.95 


..$399.95 


Warranty Information: 


TURBO-M systems co 
TURBO-M systems ar 
FLIGHT SIMULATOR, 

MEGADISK hard driVi 


me with a full year warranty for parts and labor. 

i guaranteed to run all programs such as LOTUS, SYMPHONY, AUTOCAD, 
DBASE, MICROGRAFX, WORDSTAR, LEADING EDGE W/P, RBASE. 

es are fully warranteed for parts and labor. 


TERMS and CONDITIONS: 

All prices are cash discounted However, we do 
accept MC.VISA, AMEX & DISCOVER credit cards. 
C O D ’s are accepted No deposit required 
Purchase Orders Corporate, Government & School 
P.O.’s are accepted. Please call for details. 
Shipping Costs are calculated per order 
Please call for total 

Shipments of all in-stock products are made within 
24 hours Same day service is available upon 
request — no added cost 
Not responsible for typographical errors. 

Terms and Specifications may 
change without notice 


Software Support Inc. — MicroSmart Inc. 

200 Homer Street Co^/1//. 

Ashland MA 01 721 


t 

Hours: Mon 

Toll Free 


617 - 872-9090 

Fri 10 am to 5:30 pm (est) Sat 4:00 pm 

Ordering 1-800-343-8841 


Dealer Inquiries Invited 

Reader Service-Call 1-800-343-8841 


Service & Returns: It is our policy to repair all service 
returns within 24-48 hours. Normally same day tum- 
a-round is accomplished It is necessary to have a 
(R)eturn (M)aterial (A)utborization to insure 
speedy service. 

IBM. TAVA. COLUMBIA. 5151, COMPAQ. EAGLE. 
TRS/80. HEATH/ZENITH are registered trademarks 
of IBM Corp.. Tava Corp.. Columbia Computer Corp, 
Key Ironies Corp, Compaq Corp. Eagle Computer. 
Tandy Corp. Zenith Corp. respectively 
’ 1986 Software Support, Inc All rights reserved 
* 1986 MicroSmart. Inc All rights reserved 








































































* 

V 

if ( fgets(buffer,35,setup) == NULL ) { 

break; 

) 

cp = index(buffer, f \n'); 

*cp * ’ * ; 

streat(menu!terns[i], buffer); 

if ( fgets (buffer, 50, setup) — NULL ) { 

scr_puts("Error reading menu command text:”); 

scr_printf(” Last line read was <%s>\n”,menuitems[i] +3); 

exit(1); 

} 

cp « index(buffer,’Xn*); 

*cp = ’\P’; 

strcpy(menucommand[i],buffer); 

) 

strcat(menuitems[24],"Format Floppy Disk Drive”); 
streat(menuitems[25] /'Execute a DOS Command”); 

fclose(setup); 


it 


dead_screen() 

Performs two functions depending on the state of the variable 
"screenflag": 

1. If screen is on, it turns the screen off and initializes the 
walking prompt line. 

2. If the screen is off, it "walks” the flashing prompt to the 
next screen location with wraparound from bottom of the screen 
to the top. 

* 

>v*>v*yfyov*yov******yov*>v**yoWovvov***yov**********yov**yc*****>v*yovyov******yov***yovyr>v*** / 
static int current row; 


it 

* 

it 

it 

it 

it 

if 

it 

it 

it 


dead_screen() 

( 

if ( screenflag ) ( 

screenflag * FALSE; 
current_row = -1; 
cls(); 

if ( vflag —- TANDY2000 ) ( 

normal = 0x2a; 
outportb(0x198,0); 
outportb(0xl9c,0); 
outportb(0xl9e,0); 

) 

else ( 

normal « (normal & 0x000f) | 0x0088; 

} 

) 

else { 


header(current_row,-1,80,” ",nor); 
if ( ++current_row > 23 ) 
current_row = -1; 

header(current_row,-1,80,"Press any key for menu”,nor); 


) 


/>vyovycyo'ov>vyf>vyov*yr>vyovyov*>vyfyovyryf>vyryryr**yfy<*yryr**>vyf****yf*yr)vyov**yc*>vyfyfyovyf*yfyovyfyryovyf*>vyryovyovyc 

* 

* drawmenuQ 

Draw the menu box on the screen and display the proper menu text 

* 

**VfyfyryoV*ycyoV*yfyovyfycyovycy<'yfyovyf**yovyovyovy<yfy<’*'>vy<-yov*yoV*yov*yoV**y<'y<'yoV'>vyo , ovy<-y<-*yfyt'yovyovyovyoV*>vy<'y<’ / 
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#define UC 0 
#define UR 0 
#define LC 79 
#define LR 24 
^define LM 3 

drawmenu() 

{ 

register int i; 
register int mrow; 

window(UR,UC,LR,LC,hnor); 

getdate(); 

header(0,UC, LC,cmd,hrev); 
header(1,UC,LC,title,hrev) 
header(2 ,UC,LC ,menuver,hriiv) ; 
drawline(4,UC,LC,hnor); 

drawline(20,UC,LC,hnor); 
header (20,UC,LC," ",hrev) 
header(21,UC,LC,prompt,hr<^v); 
header(22,UC,LC," ",hrev) 

drawvert ( (LC-UC)/2,4,20 ,hnor) ; 


attrib = hnor; 
for ( i = 0, mrow=6; i < 
display(UC+LM,mrow,mei 
display(UC+(LC-UC)/2+ 

} 

screenflag = TRUE; 


:.3 


{ 


i++, mrow++ ) 
huitems[i]); 

LM,inrow,menuitems [ i+13] ) ; 


^oooV^ooWoWoVyoWoWoVVoVyoV^yoYVWoVyoVycVoWoVyoVyoWoYVoWoVyoVVoV^^^ 
* 


* 

>Y 

* 


formatdiskQ 

Called for option 
on the video scree 
response into a sy 


"Y" from the menu to display the option boxes 
n and get your response. It then formats your 
stem call to format the floppy disk drive. 


*yoY>YVfyoY*yoY*>Y*>Y***>Y>YyoY**>Y>YyoY*y<yfVf**>V***>Y*yoY***VoYyoY>Y>Yy<'>Y****Vf>Y***>Y>Y*yoY*yoYyoYy<'***>Y* / 


<S 


formatdiskQ 

{ 

window(8,15,14,65,rev); 
display(17,9,"Format flopp 
display(17,1(3, "that a disk 
display(17,11,"Press the <] 
display(17,12,"press the 
display(17,13,"other key w 
ch = toupper(scr_getc()); 
if ( (ch — »FQ || (ch = 
window(lpf, 17,16,67 ,nor 
display(19,12,"Press t 
CURSOR_ON; 
do ( 

ch2 = toupper(scr 
) while ( (ch2 != ’A 


y disk in selected drive. Ensure"); 

is in the drive with the door shut."); 
F> key to format a data disk or"); 

!> key to format a system disk. Any"); 
ill return to the menu display."); 

’S') ) ( 

); 

ne T A’ or f B' key to select drive: "); 


getcQ) ; 

) && (ch2 1= 'B') ); 


/ 


>Y 

* Note that this prog 

* FMT.COM on your diS 

* the correct name i£ 


V 


ram assumes that FORMAT.COM has been renamed to 
k. Change the character string below to reflect 
this is not your case. 


if ( ch == 'F f ) 

strcpy(cmd,"FMT A:/V"); 

else 

strcpy(cmd,"FMT A:/S/V"); 
cmd[4] = ch2; 

display(19,14,"Do you ^ant to continue (Y/N)7 "); 
do ( 
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* 

* 

* 

* 

>v 


ch2 = toupper(scr_getc()); 

} while ( (ch2 != 1 Y 1 ) && (ch2 !- 'N*) ); 
if ( ch2 == 1 Y* ) 

doscommand(cmd); 

else 

CURSOR_OFF; 

} 

screenflag = FALSE; 


doscommand(str) 

Restores the video to normal and executes the user command 
specified by parameter "str" 


doscommand(str) 
char *str; 

( 

cls(); 

scr_call(SMODE); 

CURSOR_ON; 
system(str); 

if ( vflag — TANDY2000 ) 
init_video(); 
screenflag = FALSE; 

) 

/*vov**vov*v<'*********>v******>v******y(^***yf***>v**>v*>v>v*******^WfV^v*>v*vov****vov******** 

* 

* get_dos_command() 

* This function is executed in response to option M Z M from the 
system menu. It draws the "DOS command box” on the screen and 
reads the user command input. If the input is non-null, the 
command is executed. When the command completes, the screen is 
intact, waiting for you to press a key to return to the menu. 


Vf 

* 

* 

* 

* 


yovyov*****yov**yf*****yoV****yov*yc*>v*>v**yf*yf***y<***yf*******ynv*>vyf*yov*yov**vov**vov**yo , ov/ 

get_dos_command() 

( 

register char *cp; 
register char c; 
int row,col; 

window(12,0,17,79,nor); 

header(12,0,79,”DOS COMMAND WINDOW",rev); 

header(13,0,79,"Enter DOS command below, ENTER to return to menu",rev); 

CURSOR_ON; 

cp « cmd; 

*cp++ = ' $' ; 
for (;;) ( 

*cp = 0; 

display(l,16,cmd); 
c = scr_getc(); 
if ( c — *\r 1 ) 
break; 

if ( c — 8 ) { 

if ( cp > cmd+1 ) ( 

cp - -, 

scr_loc(&row,&col); 
display((--col),row," "); 

) 

continue; 

) 

if ( cp > cmd+79 ) 
continue; 

if ( (c & 0xff) < 0x20 ) 
continue; 

*cp++ = c; 

) 

if ( cmd[l] == 0 ) ( ____ 
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CURSOR_OFF; 
screenflag = FALSE; 
return(J?) ; 

) 

els() ; 

scr_call(SMODE); 
system(cmd+l); 

header(23 ,-1,80, "Press any key to return to the menu",rev); 
scr_getc(); 

if ( vflag — TANDY2000 ) 
init_video(); 
screenflag = FALSE; 


/VfVfVfVfVfVfVfVrVfVrVfVrVfVfVfVrVfVfVfVrVfVrVfVrVfVfVr^ 

* 

* getdate() 

* This function reads the current system date using MS-DOS function 

* call 2AH and formats the returned date in the string buffer array 

* "cmd" for display. 


*VoV**VoV***>V>V*yoV*******Vf*VWc*yf*yoV****yoV**Vf*>V*yoV**VoV**VoV***V<'VoV*VoVVoV*VoV*>V**V<‘V< 1 >V*>V* / 


char ^weekdays[] - { 
"Sunday”, 

"Monday”, 
"Tuesday”, 
"Wednesday”, 
"Thursday”, 
"Friday”, 

, "Saturday” 

); 


char ^months[] = ( 

h m 

» 

"January", 
"February”, 
"March", 
"April”, 

"May", 

"June”, 

"July", 
"August”, 
"September", 
"October", 
"November”, 
"December” 

); 


getdate() 

( 

struct regs dosregs; 

dosregs.AX = 0x2a 
sysint(33,&dosregs,&dosregs); 

sprintf(cmd,"%s, %d %s %4d”,weekdays[dosregs.AX & 0xff], 

(dosregs.DX & 0xf f) , months [( (dosregs . DX » 8) & JJxf f) J, dosregs . CX) ; 

) 


Vf 

Vf 

* 

Vf 

Vr 

Vr 


iffVfVfVfVfVfVfVfVrVf'jVVrVfVfVfVfVf 

gettime() 

This function gets the current system time using MS-DOS function 
call 2CH and returns a long integer value representing the 
binary number of seconds past midnight. As a side-effect, this 
function also formats the time in display format in the character 
string buffer "cmd". 


VfVf*VfVfVfVfVfVfVfVfVfVfVfVfVfVfVfVfVfVrVfVrVfVfVfVfVfVfVfVfVfVfVfVfVf^VVfVfVfVfVfVfVfVfVfVfVfVfVfVfVfVfVfVfVfVfVfVfVf^VVf*VfVfVfVfVfVfVfVrVfVfVfVfVfVf f 


long gettimeQ 

{ 

struct regs dosregs; 
int hours.minutes,seconds; 
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dosregs.AX = 0x2c00; 
sysint(33,&dosregs,&dosregs); 
hours = (dosregs . CX » 8) & 0xff; 
minutes = dosregs. CX & 0xf f; 
seconds = (dosregs.DX » 8) & 0xff; 
sprintf(cmd,”%2d:%2d:%2d",hours,minutes,seconds); 
if ( cmd[3] — ' ' ) 
cmd [ 3 ] = '0»; 
if ( cmd T 61 — ' ' ) 
cmd[6] = '0'; 

return( (long)seconds + 60L * ( (long)minutes + 60L * (long)hours) ); 

) 


* 


* Init_video - initialize the video segment address to the correct 

* value. 

* 

* The IBM-PC and clone's video segment is dependent on the hardware 

* installed. Monochrome VRAM begins at segment 0xB000 and color VRAM 

* begins at segment 0xB800. 

>v 


* The TANDY 2000 video segment is located in the highest 5K of memory 

* installed. To determine if the computer is a Tandy 2000, you must fir 


st 

* inspect the Boot ROM located beginning at 0xFC00 segment for the prope 
r 

* identification. There are currently two versions of this Boot ROM with 

* different locations of the Tandy identifier. This explains the relatively 

* complex "if" statement below. 

* 

* After determining the segment addresses correctly, the colors and attri- 

* butes must be set correctly. On the IBM-PC and clones, this is the same -- 

* colors and attributes are controlled by the same byte. Tandy 2000 mon 


o- 

* chrome attributes are totally different from the IBM-PC. 

* 


yoYyoYyoYycyryoYyoYyryryoYyoYyoYycyoYyoYyoYyoYyoYyoYyoYy^yoYyoYyoYyoYyoYyryoYyoYycyoYyoYyoYyoYyoYyoYyoYyoYyoYyoYycyoYyoY / 


init_video() 

{ 

struct regs memregs; 


if ( ( (peekb(0x002f,0xfc00) — 'T') && (peekb(0x0030,0 
/xfc00) == 'a') ) 

|| ( (peekb(0x0032,0xfc00) — 'T') && (peekb(0x0033,0x 


fc00) — ’a') ) ) 

( 

vflag = TANDY2000; 

on_value = 0x000F; 
off_value = 0x6000; 
normal ** 0x0a; 
revrs — 0x8a; 
hilite « 0x4a; 
rhilite = 0xca; 

SMODE - 2; 
scr_call(SMODE); 
outportb(0x198,NORMAL); 
outportb(0xl9a,REVRS); 
outportb(0xl9c,HILITE); 
outportb(0x19e,RHILITE); 

sysint(18,&memregs,&memregs); /* get current memory size */ 

Video_Mem = ( (memregs.AX « 6) & 0xFF00 ) | 0X00C0; 

) 

else { 

on_value = 0x0007; 
of f_value ■» 0x3000 ; 

sysint(17,&memregs,&memregs); /* get equipment status word */ 
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Give your Model 100 

128KRAM 



Software included, 
transfers from 
bank to bank. 






July 3k N86 



Works like main 
menu! Includes 
powerful RAM Basic 
that lets programs 
store and access data 
from any other bank. 


As amazing as it seems you can upgrade your 
Model 100 to I28K of RAM in iust 60 seconds. 

It comes right out of the box looking just 
like the picture. You just open the little compart¬ 
ment on the back of your Model 100 with a 
quarter and it just pushes right into place. You 
can then put the cover back in its place. 

You then have 4 banks of RAM of 32K each. 

I he additional three banks also work just like 
your Main Menu. 

You push a function key and you are in the 
second bank. Push again and you are in third, 
again, then fourth. Press it once again for your 
original bank. 

It has its own built-in NiCad battery that 
recharges right from the Model 100 and its 
guaranteed tor a full year. 

What is really great is that you can copy a 
file from one bank to another with just a func¬ 
tion key. 

Each bank is like having another Model 
100, and all the built-in programs as well as any 
snap-in ROM programs appear in all four banks 
and work the same way. Your widebar cursor 
moves from file to file and you access any file or 
run any program just by pressing ENTER. 

What lets you copy any file from one bank 
to another is a snap-in ROM from PCSG called 
RAM +, that comes at no extra charge. It 
pushes right into the little socket in that same 
compartment with the 96K expansion unit. 

Not only does this firmware let you copy a 
file from bank to bank, but you can make a copy 
of any file within the same bank instantly with a 
function key. Great for Lucid spreadsheets! 


Copy a file from 
bank to bank with a 
function key 


You can also rename a file, or kill any file 
with just a function key. Plus you can "do a 
whole lot of other useful things like setting the 
date, day and time with function key ease. You 
even have a function key that lets you use non- 
Radio Shack printers without having to make 
those tricky dipswitch settings. 


■■■ 


' its iQR*; 


€1985. PCSC Inc. 










Installs as easily 
as plugging in a socket 



RAM + lets you cold start any one of vour 
banks without affecting the other three. That 
means that anytime you want you can clean out 
a bank's entire memory, but leave intact all the 
files in the other banks. 

What is also fantastic is that you don't have 
to have the ROM in place to use the additional 
RAM. Whenever you take out the snap-in ROM 
it leaves behind a tiny machine code program 
that lets you switch from bank to bank just by 
pressing "ENTER. 


This lets you use your ROM socket to snap- 
in other ROMS like the amazing SUPER ROM, 
or DISK f ROM file transfer program, and use 
them in any or all four banks. All of these, by the 
way, are available from PCSG. 

When you are ready to copy a file from one 
bank to another or use any of the other fantastic 
functions we talked about you can just snap the 
RAM 4- ROM back into place. 

Everybody that has this 128K system in 
their Model idO is so excited, because it gives 
them four times the capacity and all banks work 
just like the Main Menu. 

And what has made a lot of people happy 
is that the system bus, located in the same 
compartment, is left free for you to plug in a 
DV1 or the Holmes Engineering/PCSG portable 
disk drive. 

The ability to copy a file from bank to bank 
instantly with" a function key, plus all of the 
other features make this RAM extension truly 
an engineering masterpiece. 

This is the only memo™ expansion that 
gives you 3 extra banks of RAM. That's 50% 
more than any other RAM expansion product. 
Thousands have been shipped to satisfied 
customers over the past 12 months —more are 
installed and working reliably than any com¬ 
petitive product. 

Some people hesitate when they think of 
installing something, and then others are 
skeptical that any additional hardware could be 
as good as the Model 100 itself. That's why we 
sell these 96K expansions on a 30 day "trial. 
Simply return it within 30 days for a full refund 
if you are not satisfied. Priced at$4-*TMC VISA 
COD. 


R4RTABI f COMRUFR MPORT ORQP 


11035 Harry Hines Blvd. #207 
Dallas, Texas 75229 

214-351-0564 


PCSG offers a 30-day/money-back trial! • Also available for the model 200. 

































































if ( (memregs.AX & 0x0030) == 0x0030 ) { 

vflag = IBMMONO; 

Video_Mem = 0xB000; 

SMODE = 2; 
scr_call(SMODE); 
normal = 0x07; 
revrs = 0x70; 
hilite = 0x0f; 
rhilite = 0x7f; 

) 

else { 

vflag = IBMCOLOR; 

Video_Mem - 0xB800; 
scr_call(SMODE); 
normal = NORMAL; 
revrs = REVRS; 
hilite - HILITE; 
rhilite = RHILITE; 

) 

) 

attrib = normal; 

cls(); 

CURSOR_OFF; 


y VfVoVVfVc V f **VoVVoV***yoV*VoV*VoV***VoV*VoV***VoVVoVVoVVoVVoV*VoVyoVVoVyoVVc***->V***->V**VoVVo’o’oVVoV**VoV*V<- 

* 

* Draw a "windowed box” on the video screen in the area specified 

* by the upper left corner and the lower right corner. The box must 

* be at least 3 X 3 to accomodate the frame drawn around it. 

* 

it The window box will be drawn using a double-line frame in the attribute 

* mode specified. The character attibute will be restored to its previous 

* value on exit from the procedure. 

it 

**VoV********VoV**VoV******VoV***********VoV*VoV>VVoVVoVVoV>V**yoV***VoV**VoV**VoV>V*********/ 


#define ULC 0xc9 

#define URC 0xbb 

#define LLC 0xc8 

#define LRC 0xbc 

#define HRZ 0xcd 

#define VRT 0xba 

#define LVR 0xcc 

#define RVR 0xb9 

#define UHZ 0xcb 

#define LHZ 0xca 

static char window_line[81]; 

window(urow,ucol,lrow,lcol, atr ) 
int ucol, urow, lcol, lrow, atr; 
( 


/* Define box characters using the */ 
/* IBM-PC double line special chars */ 


/* You can change these to the */ 
/it smaller single line characters */ 
/* or any other character you */ 
/* desire. */ 


register int line_len, i, j; 

if ( ((line len - lcol-ucol+1) < 3) || (line_len > 80) 
return(-l); 

if ( (lrow-urow+1 < 3) || (lrow-urow+1 > 25) ) 
return(-l); 

if ( (atr < 1) || (atr > 4) ) 
return(-l); 


attrib -= atr; 

window_line[0] = ULC; 
windowline[line_len-l] = URC; 
for ( i = 1; i < line_len-l; i++ ) 
window_line [ i] =* HRZ; 
window_line[line_len] = '\0*; 

display(ucol,urow,window_line); 

window line[0] = window_line[line_len-l] - VRT; 
for (1=1; i < line_len-l; i++ ) 

window line[i] = ' 
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window_line[line_len] = 1 \0'; 
for( t = 1; i < lrow-urow; i++ ) ( 

display(ucol,urow+i,window_line); 

) 

window_line[0] = LLC; 
windowline[line_len-1] = LRC; 
for ( i « 1; i < line_len-l; i++ ) 
window_line[i] = HRZ ; 
window_line [ line_len] = ' * ; 

display(ucol,lrow,window_line); 

return(0); 

) 

* 

* header(row,col,ecol,str,at) 

* displays the string "str” as a header centered one line down 

* from the top row of the window defined by the top row and the 

* starting and ending columns. This actually can be used to center 

* a line anywhere on the screen and write it using the attributes 

* desired. 

* 

yoVVoV*VoV*>V*VoV>V*VoV**VoV*VoV**VoWoVVoV***VoV*>V*>V****VoV*VoV*yoV****>V**>V******VoV****VoV***/ 


header(row,col,ecol,str,at) 
int col, row, ecol, at; 
char *str; 

( 

char buf[81]; 
register int i, len; 
int atsave; 


atsave = attrib; 
attrib « at; 
len =* ecol - col - 1; 
for ( i = ff; i < len; i++ ) 
buf[i] = ' '; 

for ( i = (len - strlen(str))/2; *str; ) 
buf[i++] = *str++; 
buf[len] = '\P’; 
display((++col),(++row),buf); 
attrib = atsave; 


/*VoV*VoVVfVoVVoVVoV*VoV*VoV*VoVVoV**VoV***yoV******VoV*VoV*y<-Vf**Vo , o’o , oV*VoVV<'****yoV***VoVVfVoV****'5 , oV 


* 

* drawline() 

* Draw a horizontal line across the screen with proper vertical 

* line terminators. 

* 

vov>v*>v**yf*****vf**vcvovyov*yov**yov**yovvov***>vv< > yovvr*yc*yov*yo , <^**yovyovy<'*’>v*>v******yov^v****')v*/ 


drawline(row,ucol,lcol,atr) 
int row,ucol,lcol,atr; 

( 

char linestr[81]; 
register int i; 
int attsave; 

linestr[0] = LVR; 

linestr[lcol-ucol] = RVR; 
linestr[lcol-ucol+1] = 0; 

for ( i = 1; i < (lcol-ucol); i++ ) ( 
linestr[i] « HRZ; 

) 

attsave = attrib; 
attrib = atr; 

display(ucol,row,linestr); 
attrib == attsave; 

2 ____ 
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/VoVVoV**7WoV**VWoVVoVVoV*****VoVVoVVc**Vr***VoV*********************************** 

>v 


kWoWo'o'oV 


drawvert() 

Draw a vertical line down the screen with proper horizontal line 
terminators. 


*VoVyfVoV*VoV*VoV**V<->V*V<'**VoVVoV*VoV*VoVVrV<-VoV**Vo , oV*VoVVoVVoVVoV**VoV***V<'VoVVo , o , o , o’o , oVVoVVo , o , oVVo , oV*VoV/ 

drawvert(col,urow,lrow,atr) 
int col,urow,lrow,atr; 

( 

register int i; 
int attsave; 


attsave - attrib; 
attrib « atr; 
cmd[J?] = UHZ; 
cmd[l] = P; 

display(col,urow,cmd); 
cmd [0] = LHZ ; 
cmd[l] « P; 

display(col,lrow,cmd); 
cmd[0] - VRT; 
cmd[l] = P; 

for ( i = ++urow; i < lrow; i++ ) 
display(col,i,cmd); 
attrib = attsave; 

) 

/VoV***VoV*VoVVoV*VoVVoV***>V**>VVoV*VoVVc*VoV*VoV*VoVyoVyoVVoVVoV*VoV*VoV*VoVVoVyoV*VoV*VoVVoV*VoVVoV***** 

* 

* c 1 s ( ) 

Clear the video screen and home the cursor to the upper left 

* screen corner 


^oocyooo<-yovyov*vcyovyovvovyoWoVVoWoWoV*yovvovyoV**yoYyovy< , yov***yov^^^ / 

cls() 

( 

CLS; 

scr_curs (0,0); 

) 

/*>YVf******Vf*V < -**V<-Vf******>YVoY*VoY*****VoYVoY*Vfyc*VoVV<VoY*VoYVoV*VoVVoYVoVVoV*VoYVoV**VoY*yfVo , o f oYVo , oY 

* 

* display(x,y,str) --- displays the string pointed to by the variable 

* "str” beginning at the cursor location specified by 

* (x,y). Uses direct video memory access. The chars 

* are displayed in the colors determined by the value 

* of "attrib”. 


*VoY*>Y**VcyoY**************V<****VoV*VoV>YVoY*VoVyoY*VfVoVVf*yoVVcVo , oVVr*********Vo , o’oV*Vc'****VoVVf/ 
display(x,y,str) 
int x, y; 
char *str; 

{ 


register int len, atr; 
switch (attrib) ( 
case 1: 

atr = normal; 
break; 
case 2: 


atr =» revrs; 
break; 
case 3: 

atr = hilite; 
break; 
case 4: 

atr = rhilite; 
break; 
default: 

atr = normal; 

} 

len = strlen(str); 
for ( ; len-- ; ) ( 

/* 

* The next segment of code is conditionally assembled here for an IBM-PC to 
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f»; 


ensure that the characters are only written to the video monitor during the 

* video retrace mode or flyback. This code should work on all close 

* compatibles. 

* 

V 


;Set communications segment address 
; .. in DS register 

;Get 6845 Video Controller Base addr 
;Form status port address 

;Get controller status 
;Is horizontal retrace low? 
iWait until it is 

;Disable interrupts until write compl 
;Test for retrace high 

;Wait until it is 
;Small delay loop 

; .. so hash is not written at left 
; .. margin of screen 


if ( vflag == 

= IBMC0L0R ) 

#asm 


MOV 

AX.40H 

PUSH 

DS 

MOV 

DS, AX 

MOV 

DX,[63H] 

ADD 

DX, 6 

POP 

DS 

_LI: IN 

AL, DX 

TEST 

AL, 1 

JNZ 

_LI 

CLI 


_L2: IN 

AL, DX 

TEST 

AL, 1 

JZ 

L2 

MOV 

AX,5 

_L3: DEC 

AX 

JNZ 

L3 

#endasm 


} 


pokew((y * 

+ x++) « 1 1 

if ( vflag == 

IBMC0L0R ) 


#asm 

STI 

#endasm 


;Reenable interrupts 


) 

scr_curs(y,x); 


HJiTT 


SPECIAL 

TANDY 1000 

Multifunction Board 

•512 K Ram 

• RS-232C Serial Port 
•DMA Controller 

• Clock-Calendar 


$ 


25995 


ADDITIONAL TANDY COMPATIBLE 
PRODUCTS AVAILABLE 
CALL FOR A FREE CATALOG 

Micro Mainframe 4N1® 


11285-E Sunrise Gold Circle 
Rancho Cordova, CA 95670 


(916J 635-3997 lWI 1 


O' 


\ 


H 


_ J 


LOW LOW PRICES 
on 

Hard Disk Drives 
Floppy Disk Drives 
Star Printers 
Anchor Modems 
Diskettes 

Color Computer Dr ^ 
SPECIAL 


IBM XT COMPATIBLE 
2 FLOPPY DRIVES 
1 10 MEG HARD DISK 
MONOCHROME OR COLOR CARD 
256 K MEMORY EXPANDIBLE TO 640 K 
$1195.00 


U5 TODAY !!| O I / m / O"0 JJJ 


•OEAIER INQUIRIES INVITED. 


ORDER TOLL FREE 1-800-635-0300 6 1 7- 2 7 8 - 6 5 5 5 

r, : i TRUE DATA PRODUCTS 

I 9 South Main St. We 

I Uxbridge,Mass 01569 vi»a/M»*ter charge rr m ^ T 



(«»7) 334-7047 
HOURS MON SAT D 6IESTI 

617-278-6555 


Checks! alio* 2 week* lor clearing i 
■COO Atf<j 12 00 
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r anyopoly is a computerized 
take-off on an old traditional 
board game. Your Tandy 1000 
I BASIC is a powerful implementation of 
Microsoft BASIC. It provides all the 
I tools needed to create a game which can 
I provide hours of pleasure for the entire 
family. The full playing board is used in 
I this version of the game, complemented 
| by graphically rolling dice, moving 
I playing pieces, sound effects, a window 
I for quick summaries and a banker who 
| never makes a mistake with your 
| money! 

Tanyopoly requires a minimum of 

J Leonard Hyre works as a claims repre- 
I sentativefor the Social Security Admin- 
J istration. He has written several articles 
I for THE RAINBOW , PCM’s sister publi- 
1 cation for the Color Computer, and is 
] the author of a number of commercial 
I programs. He may be contacted at P.O. 
I Box 403, Cambridge, MD 21613; (301) 
\ 228-0064. 


256K of memory in your Tandy 1000. 

The program is long, but it didn’t start 
out to be such a big project. Friends and 
family kept adding ideas for special 
features, and pretty soon I was looking 
at over 30K of BASIC. Once added, 1 
couldn’t bear removing any of the 
goodies. It should be possible to modify 
Tanyopoly to run on the 1200, 2000 and 
3000 machines. To do so, change the 
SCREEN 6 color display to a SCREEN 2 
monochrome version. Remove the 
CLERR 32768 statement and PRLETTE 
statements. Other changes would be of 
a minor nature. 

Here is a suggestion as to the order 
in which the listing should be typed in. 
First type in lines 1-320, then skip to 
2985 and do all the lines following. If 
you then insert a temporary line at 340 
(340 GOTO 340), you can test and debug 
the playing screen completely, before 
going into the playing portion of the 
program. When all is working, remove 
the temporary Line 340 and type in the 


rest of the program. If you are a novice, 

you should be aware that the balance of 
the program will not run until virtually 
all of it is completed. 

The first section of the program is the 
title screen, set up to provide a bit of 
color and flash to introduce the game. 

I have chosen to create my own letters 
for the title, as seen in lines 130 and 135. 
These are put in place on the screen 
using the DRRW command to overlap 
three sets of letters in different colors. 
This gives a nice look to the title, which 
is then surrounded by a flashing mar¬ 
quee created using the STYLE option of 
LINE (Line 180). 

The main program is set up in the 
area from lines 195-424. We must care¬ 
fully dimension all the array space that 
will be needed to get dice, windows, 
playing pieces, etc. 1 have liberally 
sprinkled the listing with REM state¬ 
ments so you can follow most of the 
subroutines which make up the pro¬ 
gram. I will not be going into great 
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YOPOLY 


your Tandy 1000 


By Leonard Hyre 
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detail about some of the program struc¬ 

ture, however, some of the subroutines 
are unique and may be of interest to the 
programmers out there. 

The core of the program, in lines 405 
through 550, keep track of who’s turn 
it is and where players are on the board, 
sends the player off to special features 
(“Free Parking,” “Income Tax,” etc.), 
and changes players at the end of a roll 
unless a double is rolled. All other 
routines lead back to the core. 

Rolling the graphic dice is the next 
subroutine. The dice, having been 
created way down in lines 3315-3335, 
are manipulated in lines 560 through 
645, putting the dice obtained with the 
earlier GET, in the proper location on 
the screen. When a player presses any 
key, the roll of the dice ceases, a final 
set is put on screen and the player is told 
what he has rolled! 

Property! Property! Who owns it? 
Can I buy it? Do I have a hotel on it? 
Control of money and property is the 
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thing. Several subroutines are used to 

control these various functions individ¬ 
ually. There are subroutines for “Buy” 
(785-900), “Book Status” (850-900), 
“Improve Property” (910-1110), “Asset 
Listing to Screen or Printer” (1120- 
1235), “Mortgage” (1245-1360), “Un¬ 
mortgage” (1370-1445) and “Rent Due” 
(1470-1525). All of these are similar 
because they use the information read 
into memory earlier, to control just who 
can do what and when. 

For example, the Buy routine first 
checks (in lines 800-805) to see if the 
players location is one that can’t be 
bought or sold (such as “Jail”) by 
checking to see if □( AT) is 5 (X = Lo¬ 
cation and 5 indicates “not for sale.” If 
this is true, “You can’t buy that!” is 
shown to the potential buyer, and the 
routine ends. If not true, the routine 
continues. If the bank is the owner 
(0(30=0), the property is sold to the 
purchaser. Otherwise, the property 
belongs to the other guy or already 
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belongs to the player. If either is true, 
an announcement is made (lines 820- 
835) and the routine finishes with GOTO j 
720. At that time G0SUB 8G0 is made | 
to update “Book Status” and the next 
option is offered to the player. Other I 
subroutines employ the same type of 
logic to keep track of their particular [ 
jobs. Follow through the lisitng if the | 
“hows and whys” hold your interest. 

Three particular routines use the GET I 
and PUT commands, and generally give 
novice programmers fits! We use GET to 
save a portion of the graphic screen in 
memory until we wish to put it on the 
screen where we choose. For example, 
in the Summary Window routine (lines 
2850 through 2965), we get a rectangu¬ 
lar area first (Line 2960) and save it as 
V. We then use a simple LINE statement 
to black out that same area as window 
effect and print any information we| 
choose on it. When done, we just have 
to put back the area we got with the GET. 
See Line 2960 for the command. The! 



















PSET Option tells BASIC to put the array 
back exactly as it was. The dice routine 
uses the same technique as does the 
moving playing pieces. 

Also of possible interest are the sound 
effects. A siren accompanies the inmate 
in the “go to jail” scenarios. Landing on 
an opposing player’s railroad will illicit 
an approaching train horn. Arriving in 
free parking, you get tooted at before 
being awarded the “pot.” The Jail 
routine is at lines 2200-2280, the Rail¬ 
road Fees at 2365-2430 and the Free 
Parking from 2290 through 2310. 

Two special notes concerning typing 
in the program must be made. Line 210 
has a statement, CLEAR 327GB. Do not 
type in the exclamation mark as seen in 
the listing. It will magically appear on 
its own. The other tricky typing propo¬ 
sition is the playing board borders (lines 
3255-3290). They are created on the 
Tandy 1000 by holding down the ALT 
key and typing the ASCII code for the 
particular character needed. When you 
release the ALT key the character will 
appear. 1 have given you the codes for 


the needed characters in the remarks 
just above this portion of the listing. Be 
sure to get the proper number of spaces 
in the lines here or your board will be 
a scrambled egg or worse! 

Ah! At last it’s finished. Tanyopoly 
has some special rules which you should 
be aware of before playing. 1 will sum¬ 
marize some of them here. 

There is no limit to the number of 
“Doubles” you can roll on your turn. 

When you land on a property and 
rent is due your opponent, the program 
automatically takes the money away 
from you and gives it to the property 
owner. If this rent due is greater than 
your assets and cash, you are bankrupt 
and the winner is announced. If your 
cash and assets are great enough to 
cover your debt, but you are short of 
cash, the program will force you to 
continue to mortgage property until 
you have a positive amount of cash. 

A fast version of the game is offered 
before play begins. If you choose, the 
program will randomly deal out the 
property to the two players or teams. 


This leads to a much faster game. 
However, if one player gets two or three 
books and the other player gets zilch, 
please don’t blame me. It’s just the hand 
of fate. You can always reason it out 
with each other (sure you can). 

In jail, you do not lose a turn. If you 
don’t have a Get-Out-Free credit, you 
must cough up the $50. 

When buying houses or hotels, each 
piece of property in the book must be 
improved equally. 

If the typing is overwhelming, I’ll be 
glad to provide you with the program 
on a disk for $6.00 to cover costs (L. 
Hyre, P.O. Box 403, Cambridge, MD 
21613). Alternatively, by the time you 
read this, PCM On Disk should be 
available, giving you all the MS-DOS 
programs in the month’s issue. If you 
encounter problems, feel free to contact 
me in writing, by phone or by leaving 
a message to MUNCH in the Delphi MSD0S 
Special Interest Group, sponsored by 
PCM. 

By all means, have fun and be careful 
or you just might “go to jail!” □ 


The listing: 

1 -***************************************************************** 

2 •* TANYOPOLY A Board Game for the TANDY 1000 Computer 

3 • * (C) 12/85 , by L.Hyre * 

4 ' * 4. 

ci* > 256K or More REQUIRED! < 

8 ' 

9 ' 

1(21(21 '*** TITLE SCREEN *** 

105 ' 

110 KEY OFF:SCREEN 1:CLS 

115 COLOR 0:PALETTE 1,14:PALETTE 2,12:PALETTE 3,9 
120 ' 

125 '*** Create Special Lettering *** 

130 XT$="U20L6U4R18D4L6D20L6":XA$="U24R16D24L4U10L8D10L4":XN$="U24R4F8U8R4D24L4H 
135 L XY$="U8H8U8R4D8R16U8R4D8G8D8L8":XO$="U24R16D24L16":XP$="U24R16D12L12D12L4":X 
140 XTAN$="xxt$^BR18;XXA$;BR25;XXN$;BR32;XXY$;BR24;XXO$;BR24;XXP$;BR24;XXO$;BR24 

S^W-BM^f 00; xxtan$ ; - : DRAW"BM56,101; C2; XXTAN$ ; « : DRAW"BM58,102; Cl;XXTAN $ ; " 

150 LINE(20,60)-(300,130),16,B 
155 LOCATE 15,16:PRINT"by L. Hyre":CX=l 
160 ’ 

165 '*** Flashing Marquee *** 

170 ' 

17S vor FLASH=1 TO 3:Bl=18:B2=58:B3=302:B4=132 

180 FOR B0X=1 TO 8:LINE(B1,B2)-(B3,B4),CX,B,&H5555:Bl-Bl-2:B2-B2-2:B3=B3+2:B4=B4 
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+2:CX-CX+1:IF CX-4 THEN CX=CX-3 
185 NEXT BOX,FLASH 
190 ' 

195 '*** MAIN PROGRAM SETUP HERE *** 

m ' 

205 '*** Note: DO NOT Type in the EXCLAMATION MARK in next line ''mi *** 

210 CLEAR ,,,32768! 

215 ' 

220 '*** Reserve Space for Arrays ETC *** 

225 ’ 

230 DIM V(2340),U(33),W(33),NU(76),NV(76),NW(76),NX(76),NY(76),NZ(76) 

235 DIM P$(40),0(40),R0(40),R1(40),R2(40),R3(40),R4(40),R5(40),HC(40),MV(40) UN( 

PROP(4|) a ouS^^^ (12) ,C5?<12) ■ RL1(12) 

240 • 

245 RANDOMIZE TIMER 

250 ^1=0:L2=0:TH(1)=0: TH(2)=0: JF( 1)=0: JF(2)-=0: JB(1)=0: JB(2)=0:RROWN(1)=0:RR0WN(2 

)=0:FM=100:PRP(1) «=0;PRP(2)=0:DB=0:M(1)=1500:M(2)=1500 

255 FOR XX-1 TO 40:H(XX)=0:NEXT 

260 l 

265 • 

270 ’*** Set Up Game For Play 
275 ’ 

280 GOSUB 2985: 1 *** Read in Property *** 

285 GOSUB 3485:'*** Read in Chancey and Chest *** 

290 GOSUB 3540:’*** Read in Playing Piece Positions 
295 ' 

300 KEY OFF:SCREEN 6:COLOR 1,0 

305 PALETTE 1,15:PALETTE 2,4:PALETTE 3 9 

310 CLS 

315 GOSUB 3255 
320 ' 

325 ' 

330 ' 

335 ' 

340 '** SET UP OPTIONS AND INITIAL VARIABLES ** 

345 ’ 

350 DN=6:FOR N-l TO 2:L0CATE DN,17,1:INPUT"PLAYER NAME:";N$(N):DN=DN+1-NEXT N 
355 MID$(N$(l),1,1)-CHR$((ASC(LEFT$(N$(l),1)) AND 95)) 

360 MID$(N$(2),1,1)=CHR$((ASC(LEFT$(N$(2),1)) AND 95)) 

365 IF LEN(N$(1))>7 THEN N$(1)-LEFT$(N$(1),7) 

370 IF LEN(N$(2))>7 THEN N$(2)=LEFT$(N$(2),7) 

375 LOCATE 11,17:INPUT"Fees Paid Into FREE PARKING (Y/N)"•FP$•IF FP$="Y" OR FP$= 

"y"THEN FP-1 ELSE IF FP$="N"0R FP$="n"THEN FP=2 ELSE BEEP-LOCATE 11 51-PRINT" 

":GOTO 375 ’ 1 Ritli 

380 LOCATE 12,17:INPUT"Pass Out The Properties ? (Y/N)":PO$•IF P0$="v"0R POS-" 

Y" THEN 2565 7 ? 

385 GOSUB 690:LOCATE 11,17:PRINT"Let's play TANYOPOLY!";:LOCATE 12,17:PRINT"0K 

•I'll r °H to see who g° es first!":F0R DL=1 TO 1000:NEXT DL:FOR PICK=1 TO 15-SOU 

ND INT(RND(1)*500),.8:FOR DL=1 TO 15:NEXT:NEXT PICK 

390 RL1=INT(RND*6)+1:RL2=INT(RND*6)+1:IF RL1=RL2 THEN 390 

395 IF RL1>RL2 THEN TR=1 ELSE TR-2 

400 LOCATE 13,17:PRINT N$(TR);" goes first!"; 

405 FOR DL=1 TO 1500:NEXT:GOSUB 665:GOSUB 690 

410 LOCATE 6,17:PRINT"PLAYER:";N$(1):LOCATE 6,47:PRINT"PLAYER:"-N$(2)• 

415 LOCATE 7,17:PRINT"CASH $";M(1):LOCATE 7,47:PRINT "CASH $"-M(2) 

420 LOCATE 3,79 .-COLOR 3 : PRINT PP1$;: LOCATE 9,79: COLOR 2 : PRINT ’ PP2$ COLOR 1 
425 GET(0,0)-(15,8),U:GET(0,0)-(15,8),W 
430 ' 
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ELECTRONICS 


TRS-80 Model 2000 by Tandy" 


MS-DOS Based 



TRS-80' Model 100 by Radio Shack 



Computer System 


256K MOD2000 W/MONO MONITOR.898.00 

640K MOD3000 W/35 MEG HD.3549.00 

256K MOD 1200 HD 2 DR.1499.00 

128K MOD 1000 W/MONO 1 DR.719.00 

128K MOD 1000 W/COLOR 2 DR.1029.00 

24K MOD 102 PORT.369.00 

24K MOD 100 PORT.319.00 

24K MOD 200 PORT.679.00 

64K MOD 4D 2 DR.839.00 

64K COLOR COMPUTER .139.00 

512K MOD 6000 W/15M EG H D.2579.00 

70 MEG HARD DISK.2679.00 

35 MEG HARD DISK.2059.00 

DMP 105 PRINTER.145.00 

DMP 2200 PRINTER .1149.00 

DMP 130 PRINTER.249.00 

DMP 430 PRINTER. 499.00 

DMP 2100P PRINTER.749.00 

CGP 220 COLOR PRINTER.449.00 

DWP 510 PRINTER.549.00 

TRACTOR DWP 220 .99.00 

TRACTOR DWP 11/510.159.00 

TRACTOR FEED DMP2100P.99.00 

512K MOD 3000 W/20 MEG HD.2499.00 

PARALLEL PRINTER CONTROLLER.179.00 

PARALLEL PRINTER CABLE .29.00 

DISK DRIVE, MOD 100-200 .160.00 

32K MOD 600 PORTABLE.1149.00 

512K MOD 30001 DR.1819.00 


100% RS COMPONENTS NO FOREIGN DRIVES OR MEMORY FULL WARRANTY 
ALL RS SOFTWARE 20% OFF CATALOG PRICE 
CASHIERS CHECK OR MONEY ORDER MUST ACCOMPANY ALL ORDERS 

( 817 ) 825-4027 

NOCONA ELECTRONICS • BOX 593 • NOCONA, TX 76255 




























































435 '***** WHO'S TURN IS IT ANYWAY AND WHERE IS HE **** 

440 ' 

445 LOCATE 8,30:PRINT STRING$(22," ");:GOSUB 690 
450 LOCATE 8,30: PRINT N$(TR);'"S Turn." 

455 LOCATE 11,17:IF TR-1 THEN PRINT "YOU'RE AT ";P$(L1) ELSE PRINT "YOU'RE AT "• 
P$(L2) 

460 IF TR=1 AND Ll-0 THEN LOCATE 11,17:PRINT"YOU'RE AT GO!";:ELSE IF TR-2 AND L2 
=0 THEN LOCATE 11,17:PRINT"YOU'RE AT GO!"; 

465 GOSUB 570:LOCATE 13,17:IF TR-1 THEN PRINT"YOU MOVE TO ";P$(LI);ELSE IF TR-2 
THEN PRINT"YOU MOVE TO ";P$(L2) 

470 IF FP—1 AND (TR-1 AND Ll-20) OR (TR-2 AND L2-20) THEN 2300 
475 IF (TR-1 AND Ll-30) OR (TR-2 AND L2-30) THEN 2210 
480 IF (TR-1 AND Ll-4) OR (TR-2 AND L2-4) THEN GOSUB 2115 
485 IF (TR-1 AND Ll-38) OR (TR-2 AND L2-38) THEN GOSUB 2165 

490 IF (TR-1 AND (Ll-2 OR Ll-17 OR Ll-33)) OR (TR-2 AND (L2-2 OR L2-17 OR L2-33) 
) THEN GOTO 1545 

495 IF (TR-1 AND (Ll-7 OR Ll-22 OR Ll-36)) OR (TR-2 AND (L2-7 OR L2-22 OR L2-36) 
) THEN GOTO 1685 

500 IF TR-1 AND 0(L1)=2 AND (Ll-5 OR Ll-15 OR Ll-25 OR Ll-35) THEN GOSUB 2375‘GO 
TO 525 

505 IF TR-2 AND 0(L2)=1 AND (L2-5 OR L2-15 OR L2-25 OR L2-35) THEN GOSUB 2375'GO 
TO 525 

510 IF TR-1 AND 0(L1)=2 AND (Ll-12 OR Ll-28) THEN GOSUB 2455:GOTO 525 

515 IF TR-2 AND 0(L2)-1 AND (L2-12 OR L2-28) THEN GOSUB 2455:GOTO 525 

520 IF (TR-1 AND 0(L1)=2) OR (TR-2 AND 0(L2)=1) THEN GOSUB 1470 
525 LOCATE 13,45:COLOR 2:PRINT"<Any Key>";:COLOR 1 
530 AK$=INKEY$:IF AK$-"" THEN 530 
535 GOTO 720 

540 IF TR-1 THEN TR-TR+1 ELSE IF TR-2 THEN TR-TR-1:'*** CHANGE PLAYERS HERE! 

545 IF DB-1 THEN GOSUB 2830:'*** HEY! THAT'S A DOUBLE 

550 GOTO 445 
555 ' 

560 '*** ROLL DICE ROUTINE ** 

565 ' 

570 RL1-INT(RND(1)*6)+1:RL2-INT(RND(1)*6)+1 
575 IF TR-1 AND L1+(RL1+RL2)-L2 THEN 570 

580 IF TR-2 AND L2+(RL1+RL2)=L1 THEN 570 

581 IF TR-1 AND L1+(RL1+RL2)=30 AND (L2-10) THEN 570 

582 IF TR-2 AND L2+(RL1+RL2)=30 AND (Ll-10) THEN 570 

583 IF (TR-1 AND Ll-40) AND (RL1+RL2)=L2 THEN 570 

584 IF (TR-2 AND L2-40) AND (RL1+RL2)=L1 THEN 570 

585 IF RL1-RL2 THEN DB-1 

590 LOCATE 21,32:COLOR 1:PRINT"HIT A KEY TO STOP"; 

595 RX-INT(RND(1)*6)+1:RY-INT(RND(1)*6)+1 

600 IF RX-1 THEN PUT(258,140),NU,PSET ELSE IF RX-2 THEN PUT(258,140),NV,PSET ELS 
E IF RX-3 THEN PUT(258,140),NW,PSET ELSE IF RX-4 THEN PUT(258,140),NX,PSET ELSE 
IF RX-5 THEN PUT(258,140),NY,PSET ELSE IF RX-6 THEN PUT(258,140),NZ,PSET 
605 SOUND INT(RND(1)*300),.1 

610 IF RY-1 THEN PUT(347,140),NU,PSET ELSE IF RY-2 THEN PUT(347,140),NV,PSET ELS 

E IF RY-3 THEN PUT(347,140),NW,PSET ELSE IF RY-4 THEN PUT(347,140),NX,PSET ELSE 

IF RY-5 THEN PUT(347,140),NY,PSET ELSE PUT(347,140),NZ,PSET 

615 AK$=INKEY$:IF AK$=""THEN 595 

620 LOCATE 21,32:PRINT STRING$(17," "); 

625 IF RL1-1 THEN PUT(258,140),NU,PSET ELSE IF RL1-2 THEN PUT(258,140),NV,PSET E 

LSE IF RL1-3 THEN PUT(258,140),NW,PSET ELSE IF RL1-4 THEN PUT(258,140),NX,PSET E 

LSE IF RL1-5 THEN PUT(258,140),NY,PSET ELSE PUT(258,140),NZ,PSET 
630 IF RL2-1 THEN PUT(347,140),NU,PSET ELSE IF RL2-2 THEN PUT(347,140),NV,PSET E 

LSE IF RL2-3 THEN PUT(347,140),NW,PSET ELSE IF RL2-4 THEN PUT(347,140),NX,PSET E 

LSE IF RL2-5 THEN PUT(347,140),NY,PSET ELSE PUT(347,140),NZ,PSET 
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635 LOCATE 12,17:PRINT "YOU ROLLED A ";RL1;" AND ";RL2;" FOR A MOVE OF ";RL1+RL2 
64(3 IF TR=1 THEN GOSUB 2665 ELSE GOSUB 274(3 
645 RETURN 
65(3 ' 

655 '** WIPE CLEAN BOX 1 ** 

66(3 ' 

665 FOR WIPE=6 TO 8:LOCATE WIPE,17:PRINT STPTNG$(47," ");:NEXT 
67(3 RETURN 
675 ’ 

68(3 ’** WIPE CLEAN BOX 2 ** 

685 ' 

69(3 FOR WIPE-11 TO 13:LOCATE WIPE,17:PRINT STRING$(47,” ");:NEXT 
695 RETURN 
7(3(3 1 
7(35 ' 

71J2T ' **** MAIN MENU HERE **** 

715 ' 

72(3 GOSUB 86(3:FOR DL=1 TO 12(3(3:NEXT:GOSUB 69(3:LOCATE 11,17:PRINT N$(TR);"'s Choi 
ce? LOCATE 7,23:PRINT M(l);:LOCATE 7,53:PRINT M(2); 

725 IF M(TR)+PRP(TR)=<(3 THEN 233(3 

73(3 IF M(TR)<1 THEN LOCATE 11,4(3: PRINT" [ YOU MUST MORTGAGE ! ]";:COLOR 2: LOCATE 
12,42: PRINT"TANYOPOLY RULE:MUST" ; -.LOCATE 13,42 : PRINT"KEEP CASH ON HAND !";: COLOR 
l^FOR DL=1 TO 1(3(3J3:NEXT:GOTO 1255 

735 LOCATE 11,4(3:COLOR 1:IF TR=1 THEN PRINT"[ ";P$(Ll);" ]”;:ELSE PRINT »[ ”;P$( 
L2);" ]"; 

74(3 LOCATE 12,22: PRINT"<B>uy <A>ssets <I>mprove <T>rade" 

745 LOCATE 13,22:PRINT"<M>ort <U>nmort <S>ummary <N>ext"; 

75(3 AK$=INKEY$ : IF AK$=" "THEN 75(3 

755 IF AK$="B"OR AK$="b" THEN 795 ELSE IF AK$="I"OR AK$="i" THEN 92(3 ELSE IF AK$ 

= "t"OR AK$="T"THEN 198(3 ELSE IF AK$="S" OR AK$="s" THEN 286(3 ELSE 76(3 

76(3 IF AK$="A"OR AK$="a"THEN 113(3 ELSE IF AK$="M"OR AK$="m"THEN 1255 ELSE IF AK$ 

="U"OR AK$="u"THEN 138(3 ELSE 765 

765 IF AK$="N" OR AK$="n"THEN 54(3 

77(3 BEEP:LOCATE 13,49:GOTO 75(3 

775 ' 

78(3 ' 

785 ’*** BUY PROPERTY HERE *** 

79(3 ' 

795 GOSUB 69(3:LOCATE 11,17:PRINT"LOCATION:";:IF TR-1 THEN PRINT P$(L1) ELSE PRIN 
T P$(L2) 

8(3(3 IF TR-1 AND 0(Ll)-5 THEN LOCATE 12,17:COLOR 2:PRINT"You can't BUY that!":BEE 
P: COLOR 1: GOTO 72(3 

8(35 IF TR=2 AND 0(L2)=5 THEN LOCATE 12,17:COLOR 2:PRINT"You can't BUY that!":BEE 
P:COLOR 1:GOTO 72(3 

81(3 IF TR=1 AND 0(L1)=(J THEN LOCATE 12,17:COLOR 1: PRINT "PURCHASE PRICE-$" ; P(L1; : 
COLOR 1•M(1)=M(1)-P(L1):PRP(1)=PRP(1)+MV(LI):LOCATE 7,23:PRINT M(l);" ";:0(L1) 

=1:IF Ll=5 OR Ll-15 OR Ll=25 OR Ll=35 THEN RROWN(l)=RROWN(l)+l:GOTO 72(3:ELSE GOT 

815 IF TR=2 AND 0(L2)=(3 THEN LOCATE 12,17:COLOR 1:PRINT"PURCHASE PRICE=$";P(L2): 
M(2)=M(2)-P(L2):PRP(2)=PRP(2)+MV(L2):LOCATE 7,53:PRINT M(2);" ";:0(L2)=2:IF L2 

=5 OR L2=15 OR L2=25 OR L2=35 THEN RROWN(2) =RROWN(2)+1:GOTO 72(3: ELSE GOTO 72(3 
82(3 IF TR-1 AND 0(L1)=2 OR 0(L1)=4 THEN COLOR 2:LOCATE 12,17: PRINT N$(2);" OWNS 
THAT!!!": BEEP: COLOR l:GOTO 72(3 

825 IF TR=2 AND 0(L2)-1 OR 0(L2)=3 THEN COLOR 2:LOCATE 12,17:PRINT N$(l);" OWNS 
THAT! ! ! " : BEEP: COLOR 1: GOTO 72(3 

83(3 IF TR-1 AND 0(L1)=1 OR 0(Ll)=3 THEN LOCATE 12,17:COLOR l:PRINT"It’s Already 
YOURS!" 

835 IF TR=2 AND 0(L2)=2 OR 0(L2)=4 THEN LOCATE 12,17:COLOR 1:PRINT"It's Already 
YOURS!" 
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840 FOR DL=1 TO 900:NEXT:GOTO 720 
845 * 

850 *** CHECK FOR BOOK STATUS HERE *** 

855 ' 

860 IF (O(l)-TR OR 0(l)-TR+2) AND (0(3)=TR OR 
865 IF (0(6)=TR OR 0(6)=TR+2) AND (0(8)=TR OR 
+2) THEN B(6)=TR:B(8)=TR:B(9)=TR 
870 IF (0(11)=TR OR 0(ll)=TR+2) AND (0(13)=TR 
14)=TR+2) THEN B(11)=TR:B(13)=TR:B(14)=TR 
875 IF (0(16)=TR OR 0(16)-TR+2) AND (0(18)=TR 
19)=TR+2) THEN B(16)=TR:B(18)=TR:B(19)=TR 
880 IF (0(21)-TR OR 0(21)=TR+2) AND (0(23)=TR 
24)=TR+2) THEN B(21)=TR:B(23)=TR:B(24)=TR 
885 IF (0(26)=TR OR 0(26)=TR+2) AND (0(27)=TR 
29)=TR+2) THEN B(26)=TR:B(27)=TR:B(29)=TR 
890 IF (0(31)=TR OR 0(31)=TR+2) AND (0(32)=TR 
34)=TR+2) THEN B(31)=TR:B(32)=TR:B(34)=TR 
895 IF (0(37)=TR OR 0(37)=TR+2) AND (0(39)=TR 
=TR 


0(3)=TR+2)THEN 
0(8)=TR+2) AND 

OR 0(13)=TR+2) 

OR 0(18)=TR+2) 

OR 0(23)=TR+2) 

OR 0(27)=TR+2) 

OR 0(32)=TR+2) 

OR 0(39)=TR+2) 


B(1)=TR:B(3)=TR 
(0(9)=TR OR 0(9)=TR 

AND (0(14)=TR OR 0( 

AND (0(19)-TR OR 0( 

AND (0(24)=TR OR 0( 

AND (0(29)=TR OR 0( 

AND (0(34)=TR OR 0( 

THEN B(37)=TR:B(39) 


900 RETURN 
905 ’ 

910 '***** IMPROVE PROPERTY GOES HERE ***** 

915 ' 

920 GOSUB 690:LOCATE 11,31:C0L0R 1:PRINT"WHICH TO IMPROVE ?";:COLOR 3:L0CATE 12, 
19:PRINT"THIS ONE?”;:COLOR 2:L0CATE 13,20:PRINT"[ Y/N ]";:COLOR 1 
925 FOR PROP= 1 TO 40:LOCATE 13,56:PRINT PROP; 

930 GOTO 1065 

935 AK$=INKEY$:IF AK$=""THEN 935 

940 IF AK$="y" OR AK$="Y" THEN IM=PROP:LOCATE 12,31:PRINT STRING$(18," ");:GOTO 
960 

945 LOCATE 12,31:PRINT STRING$(18," "); 

950 NEXT 
955 GOTO 720 

960 GOSUB 690:LOCATE 11,17:PRINT"HOUSING CONSTRUCTION:":LOCATE 12,17:COLOR 2:PRI 

NT"MUST BUY 1 FOR EACH";:LOCATE 13,17:PRINT"PIECE OF THE BOOK !":COLOR 1 

965 IF IM=1 OR IM=3 OR IM=37 OR IM=39 THEN MINHS=2 ELSE MINHS=3 

970 LOCATE 11,42:PRINT P$(IM);:LOCATE 12,42:PRINT"Min.=";MINHS;"* $"HC(IM); 

975 LOCATE 13,42:C0L0R 1:PRINT"PURCHASE [Y/N]? ";:COLOR 1 
980 AK$=INKEY$:IF AK$=""THEN 980 ELSE IF AK$="N"OR AK$="n"THEN 720 
985 IF AK$="Y" OR AK$="y" THEN 995 
990 BEEP:GOTO 980 

995 IF M(TR) < (MINHS*HC(IM)) THEN BEEP:BEEP:GOTO 720 
1000 M(TR)=M(TR)-(MINHS*HC(IM)) 

1005 LOCATE 7,23:PRINT M(l);:LOCATE 7,53:PRINT M(2); 

1010 IF IM=1 OR IM=3 THEN H(1)=H(1)+1:H(3)=H(3)+1 

1015 IF IM=6 OR IM=8 OR IM=9 THEN H(6)=H(6)+1:H(8)=H(8)+1:H(9)=H(9)+1 

1020 IF IM=11 OR IM=13 OR IM=14 THEN H(11)=H(11)+1:H(13)=H(13)+1:H(14)=H(14)+1 

1025 IF IM=16 OR IM=18 OR IM=19 THEN H(16)=H(16)+1:H(18)=H(18)+1:H(19)=H(19)+1 

1030 IF IM=21 OR IM=23 OR IM=24 THEN H(21)=H(21)+1:H(23)=H(23)+1:H(24)=H(24)+1 

1035 IF IM=26 OR IM=27 OR IM=29 THEN H(26)=H(26)+1:H(27)=H(27)+1:H(29)-H(29)+1 

1040 IF IM=31 OR IM=32 OR IM=34 THEN H(31)=H(31)+1:H(32)=H(32)+1:H(34)=H(34)+1 

1045 IF IM=37 OR IM=39 THEN H(37)=H(37)+1:H(39)=H(39)+1 

1050 IF TR=1 THEN PRP(1)=PRP(1)+(MINHS*HC(IM))/2:TH(1)=TH(1)+MINHS 

1055 IF TR=2 THEN PRP(2)=PRP(2)+(MINHS*HC(IM))/2:TH(2)=TH(2)+MINHS 

1060 GOTO 720 

1065 IF B(PROP)OTR THEN 945 
1070 IF H(PR0P)=5 THEN 945 

1075 IF (PR0P=6 OR PR0P=8 OR PR0P=9) AND (0(6)OTR OR 0(8)OTR OR 0(9)<>TR) THEN 
945 
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1080 IF (PROP-11 OR PROP-13 OR PROP-14) AND (O(ll)OTR OR 0(13)OTR OR 0(14)OTR 
) THEN 945 

1085 IF (PROP-16 OR PROP-18 OR PROP-19) AND (0(16)OTR OR 0(18)<>TR OR 0(19)OTR 
) THEN 945 

1090 IF (PROP-21 OR PROP-23 OR PROP-24) AND (0(21)OTR OR 0(23)OTR OR 0(24)OTR 
) THEN 945 

1095 IF (PROP-26 OR PROP-27 OR PROP-29) AND (0(26)OTR OR 0(27)OTR OR 0(29)OTR 
) THEN 945 

1100 IF (PROP-31 OR PROP-32 OR PROP-34) AND (0(31)OTR OR 0(32)<>TR OR 0(34)OTR 
) THEN 945 

1105 IF (PROP-37 OR PROP-39) AND (0(37)<>TR OR 0(39)<>TR) THEN 945 
1110 LOCATE 12,31:PRINT P$(PROP)GOTO 935 
1115 ' 

1120 '***** ASSETS GO HERE ***** 

1125 ' 

1130 GOSUB 690:LOCATE 8,17:PRINT STRING$(45," ");:LOCATE 8,17:COLOR 1:PRINT"ASSE 
TS OF:”;:COLOR 2:PRINT N$(TR);" COLOR 1:PRINT"--> <P>rinter <S>creen";:BE 

EP:ASSET(1)=M(1)+PRP(1):ASSET(2)=M(2)+PRP(2) 

1135 LOCATE 8,61:AK$-INKEY$:IF AK$=""THEN 1135 
1140 IF AK$—"P" OR AK$—"p" THEN 1185 ELSE 1145 

1145 LOCATE 11,17:PRINT"ASSETS(Cash & Prop)";:LOCATE 12,17:COLOR 2:PRINT"HIT KEY 
TO CONT->";:COLOR 1:LOCATE 13,17:PRINT"TOTAL $";ASSET(TR); 

1150 FOR PROP-1 TO 40:LOCATE 13,56:PRINT PROP;:IF 0(PR0P)=TR THEN 1155 ELSE 1170 
1155 FOR WIPE-11 TO 13:LOCATE WIPE,36:PRINT STRING$(28," ");:NEXT 
1160 LOCATE 11,36:PRINT P$(PROP);:LOCATE 12,36:PRINT"MORT VALUE $";MV(PROP);:IF 
H(PROP)>0 AND H(PROP)<5 THEN PRINT"HOUSES:";H(PROP);ELSE IF H(PROP)-5 THEN PRINT 
"Hotel!" 

1165 AK$=INKEY$:IF AK$=""THEN 1165 
1170 NEXT PROP 

1175 FOR WIPE-11 TO 13:LOCATE WIPE,36:PRINT STRING$(28," ");:NEXT:LOCATE 11,36:P 
RINT"THAT'S ALL!":PLAY”V15L6403E" 

1180 LOCATE 8,17:PRINT STRING$(45,” ");:GOTO 720 

1185 GOSUB 690:PZ$-N$(TR)+" 'S ASSETS":IF LEN(N$(TR))>4 THEN OV-170 ELSE OV-200 
1190 LOCATE 12,20:PRINT PZ$ 

1195 LPRINT:LPRINT STRING$(40,"*"):LPRINT "TANYOPOLY ASSET PRINTOUT FOR ";N$(TR) 

:LPRINT "TOTAL ASSETS:$";ASSET(TR):LPRINT 

1200 FOR PROP-1 TO 40:IF 0(PR0P)-TR THEN 1205 ELSE 1230 

1205 LPRINT P$(PROP);:LPRINT TAB(18);" MORTGAGE VALUE: $"MV(PROP) 

1210 IF B(PROP)=TR THEN LPRINT"You Own The Book." 

1215 IF H(PROP)>0 AND H(PROP)<5 THEN LPRINT "HOUSES BUILT: ";H(PROP);ELSE IF H(P 
ROP)=5 THEN PRINT"Hotel!" 

1220 IF O(PROP)—3 OR 0(PR0P)=4 THEN LPRINT"This Property Mortgaged!" 

1225 LPRINT 
1230 NEXT PROP 

1235 LPRINT STRING$(40,"*"):LPRINT:LOCATE 8,17:PRINT STRING$(45," ”):GOTO 720 
1240 ' 

1245 '***** MORTGAGE PROPERTY GOES HERE ***** 

1250 ' 

1255 GOSUB 690:LOCATE 11,17:PRINT"MORTGAGING PROPERTY";:LOCATE 12,17:COLOR 2:PRI 
NT"MUST MORTAGE HOUSES";:LOCATE 13,17:PRINT"BEFORE THE PROPERTY";:COLOR 1 
1260 PLAY"V15L6404FDC":FOR DL-1 TO 2000:NEXT:LOCATE 12,17:PRINT" THIS ONE - 
LOCATE 13,17:COLOR 2:PRINT " [ Y/N ] ? ";:COLOR 1 

1265 FOR UPROP-1 TO 40-.LOCATE 13,56: PRINT UPROP; 

1270 IF (TR—1 AND O(UPROP)-l) OR (TR-2 AND 0(UPR0P)=2) THEN LOCATE 13,56:PRINT" 

";:LOCATE 11,42:PRINT P$(UPROP);:ELSE 1355 
1275 LOCATE 12,42:PRINT"MORTGAGE VALUE $"MV(UPROP); 

1280 LOCATE 13,42:PRINT"HOUSES : ”;H(UPROP);" "; 

1285 AK$=INKEY$:IF AK$=""THEN 1285 ELSE IF AK$-"n" OR AK$="N" THEN 1355 ELSE 129 
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Tandy 1000 Memory Card 

another high quality product from Southwestern Digital 


Why spend a bundle on a Tandy board? 
Our Board is only 

$ 135 . 



Features: 

• 512K of Memory 

• DMA 

• Expansion Port 

• Gold Edge Cards 

• Easy Installation 

• 30 Day Satisfaction Guarantee Policy 


The Southwestern Digital Memory Expansion Plus Card has all 
the features of the Radio Shack Board but the price; you save 
almost $400. Features include 512K installed, burned in, and tested 
to give you a total of 640K, a DMA circut that is fully tested for hard 
drive operation, and an expansion port that will work with any of the 
Radio Shack Memory Plus Expansion Card options. High quality 
manufacturing, and features such as gold plated card edges make 
this the logical choice in upgrading your memory. 


Ordering Information 

Call us or mail your order in. We accept Visa, Mastercard, and Certified Funds for quickest ship 
ment. Personal checks are held for clearance Add $5. for ground shipment, or $10 for UPS 2nd 
day air service. All products carry a 30 day satisfaction guarantee, and are warranted for a full 
year. 


Order Line 
1-713-480-3296 
Southwestern Digital 

2515 West Main Street, Suite #337 
Houston, Texas 77098 









1290 IF AK$="Y" OR AK$="y"THEN 1295 ELSE 1285 
1295 IF H(UPROP)=0 THEN 1345 

1300 IF (UPROP—1 OR UPROP=3) THEN H(l)-H(l)-1:H(3)=H(3)-1:M(TR)=M(TR)+(2*HC(UPRO 
P))/2:PRP(TR)=PRP(TR)-(2*HC(UPROP)):TH(TR)=TH(TR)-2 

1305 IF (UPROP=6 OR UPROP=8 OR UPROP=9) THEN H(6)=H(6)-1:H(8)=H(8)-1:H(9)=H(9)-1 
:M(TR)—M(TR)+(3*HC(UPROP))/2:PRP(TR)—PRP(TR)-(2*HC(UPROP)):TH(TR)=TH(TR)- 3 
1310 IF (UPROP=ll OR UPROP=13 OR UPROP=14) THEN H(11)=H(11)-1:H(13)=H(13)-1:H(14 
)=H(14)-1:M(TR)=M(TR)+(3*HC(UPROP))/2:PRP(TR)=PRP(TR)-(2*HC(UPROP)):TH(TR)=TH(TR 
)-3 

1315 IF (UPROP-16 OR UPROP=18 OR UPROP=19) THEN H(16)=H(16)-1:H(18)=H(18)-1:H(19 
)=H(19)-1:M(TR)=M(TR)+(3*HC(UPROP))/2:PRP(TR)=PRP(TR)-( 2*HC(UPROP)):TH(TR)=TH(TR 
)-3 

1320 IF (UPROP=21 OR UPROP=23 OR UPROP=24) THEN H(21)=H(21)-1:H(23)=H(23)-1:H(24 
)=H(24)-l:M(TR)=M(TR)+(3*HC(UPROP))/2:PRP(TR)=PRP(TR)-(2*HC(UPROP)):TH(TR)=TH(TR 
)-3 

1325 IF (UPROP=26 OR UPROP-27 OR UPROP-29) THEN H(26)=H(26)-1:H(27)=H(27)-1:H(29 
)=H(29)-l:M(TR)=M(TR)+(3*HC(UPROP))/2:PRP(TR)=PRP(TR)-(2*HC(UPROP)):TH(TR)-TH(TR 
)-3 

1330 IF (UPROP-31 OR UPROP=32 OR UPROP-33) THEN H(31)=H(31)-1:H(32)=H(32)-1:H(33 
)=H(33)-1:M(TR)=M(TR)+(3*HC(UPROP))/2:PRP(TR)=PRP(TR)-(2*HC(UPROP)):TH(TR)=TH(TR 
) -3 

1335 IF (UPROP—37 OR UPROP-39) THEN H(37)=H(37)-1:H(39)=H(39)-1:M(TR)=M(TR)+(2*H 
C(UPROP))/2:PRP(TR)-PRP(TR)-(2*HC(UPROP)):TH(TR)=TH(TR)- 2 
1340 LOCATE 7,23:PRINT M(l) ; :LOCATE 7,53:PRINT M(2);:GOTO 1360 

1345 M(TR)=M(TR)+MV(UPROP):PRP(TR)=PRP(TR)-MV(UPROP):IF TR=1 THEN 0(UPR0P)=3 ELS 
E IF TR=2 THEN 0(UPROP)=4 

1350 LOCATE 7,23:PRINT M(l);:LOCATE 7,53:PRINT H(2);:GOTO 1360 
1355 FOR WIPE-11 TO 13:LOCATE WIPE,42:PRINT STRING!?(22," "):NEXT:NEXT 
1360 GOTO 720 
1365 ' 

1370 '***** UNMORTGAGE PROPERTY GOES HERE ***** 

1375 ' 

1380 GOSUB 690:LOCATE 11,17:PRINT"UNMORTGAGE PROPERTYLOCATE 12,27:COLOR 2:PR 
INT"THIS ONELOCATE 13,28:PRINT"[ Y/N ]";:COLOR 1 
1385 FOR PROP=l TO 40:LOCATE 13,56:PRINT PROP; 

1390 IF (TR=1 AND 0(PR0P)=3) OR (TR=2 AND 0(PR0P)=4) THEN LOCATE 12,42:PRINT P$( 
PROP);:ELSE 1435 

1395 LOCATE 13,42:PRINT"COST: $";UN(PROP);" "; 

1400 AK$=INKEY$:IF AK$—""THEN 1400 

1405 IF AK$="N"OR AK$="n" THEN 1435 

1410 IF AK$="y" OR AK$="Y" THEN 1415 ELSE 1405 

1415 M(TR)=M(TR)-UN(PROP):0(PR0P)=0(PR0P)-2:PRP(TR)=PRP(TR)+MV(PROP) 

1420 LOCATE 7,23:PRINT M(l);:LOCATE 7,53:PRINT M(2); 

1425 FOR WIPE-12 TO 13:LOCATE WIPE,40:PRINT STRING$(24," ");:NEXT 
1430 PLAY"V12L6405C02C":GOTO 720 

1435 FOR WIPE-12 TO 13:LOCATE WIPE,40:PRINT STRING$(24," ");:NEXT:NEXT 
1440 LOCATE 12,40:PRINT"THAT'S EVERYTHING!";:PLAY"V15L6402C05C" 

1445 GOTO 720 
1450 ' 

1455 ’ 

1460 '***** RENT DUE!! ***** 

1465 ' 

1470 IF TR—2 THEN 1500 ELSE GOSUB 690:LOCATE 11,17:COLOR 2,0:PRINT"RENT DUE 
:COLOR 1:PRINT" on ";P$(L1); 

1475 IF TR—1 THEN IF H(L1)=0 THEN RD=R0(L1) ELSE IF H(L1)=1 THEN RD-Rl(Ll) ELSE 
IF H(L1)=2 THEN RD=R2(L1) ELSE IF H(L1)=3 THEN RD=R3(L1) ELSE IF H(L1)=4 THEN RD 
-R4(Ll) ELSE IF H(L1)=5 THEN RD=R5(L1) 

1480 IF B(Ll)-2 AND H(L1)=0 THEN RD=RD*2 

1485 LOCATE 12,17:COLOR 1:PRINT"PAY $";RD:IF B(L1)=2 THEN LOCATE 12,27:PRINT"[BO 
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OK]" ; 

149]? IF M(TR) +PRP(TR)<RD THEN FOR DL=1 TO 9]?]?:NEXT:GOTO 2330 

1495 M(l)=M(l)-RD:LOCATE 7,23:PRINT" ";:FOR RT=1 TO 4:C0L0R 1:LOCATE 7,23:PR 

INT M(l);:PLAY”V15L6402D":COLOR 2:NEXT:COLOR l:LOCATE 7,23:PRINT M(l);:FORDL=l 
TO 900:NEXT:M(2)=M(2)+RD:LOCATE 7,53:PRINT” ";:LOCATE 7,53:PRINT M(2)-'RETUR 
N 


:";:COLOR 1:PRINT" on ";P$ 


1500 GOSUB 690:LOCATE 11,17:COLOR 2,0:PRINT"RENT DUE 
02); 

1505 IF TR=2 THEN IF H(L2)=0 THEN RD=R0(L2) ELSE IF H(L2)=1 THEN RD=R1(L2) ELSE 
IF H(L2)=2 THEN RD=R2(L2) ELSE IF H(L2)=3 THEN RD=R3(L2) ELSE IF H(L2)=4 THEN RD 
=R4(L2) ELSE IF H(L2)=5 THEN RD=R5(L2) 

1510 IF B(L2)=1 AND H(L2)=0 THEN RD=RD*2 

1515 LOCATE 12,17:COLOR 1:PRINT"PAY $";RD:IF B(L2)-1 THEN LOCATE 12,27'PRINT"[BO 
OK]"; L 

1520 IF M(2)+PRP(2)<RD THEN FOR DL=1 TO 900:NEXT:GOTO 2355 

1525 M(2)=M(2)-RD:LOCATE 7,53:PRINT" ";:FOR RT-1 TO 4:C0L0R 1:LOCATE 7,53:PR 

INT M(2);:PLAY"V15L6402D":COLOR 2:NEXT:C0L0R 1:LOCATE 7,53:PRINT M(2);:FOR'DL=1 
TO 900:NEXT:M(1)=M(1)+RD:LOCATE 7,23:PRINT" ";:LOCATE 7,23:PRINT M(l)•-RETUR 
N 

1530 ' 

1535 '***** COUNTY CHEST RESPONSE ***** 

1540 ' 

1545 FOR DL=1 TO 900:NEXT:PLAY"04D":GOSUB 690:LOCATE 11,26:COLOR 2:PRINT"C 0 U N 
TY _ CHEST !":COLOR 1 

1550 FOR WIPE=18 TO 19:L0CATE WIPE, 52: PRINT STRING$(12," ")"NEXT 
1555 CC=INT(RND(1)*12)+l 

1560 ON CC GOTO 1565,1570,1575,1610,1615,1620,1625,1630,1635,1640,1645,1650 
1565 IF TR=1 THEN M(2)=M(2)-50:M(l)=M(l)+50:GOTO 1655:ELSE IF TR=2 THEN M(1)=M(1 
)-50:M(2)=M(2)+50:GOTO 1655 
1570 M(TR)=M(TR)+45:GOTO 1655 

1575 IF (TR-1 AND L2-40) OR (TR=2 AND Ll=40) THEN 1555 ELSE IF TR=2 THEN 1595 EL 
SE 1580 

1580 PUT(01(LI),D1(L1)),U,PSET:Ll=40:GET(01(LI),D1(L1))-(01(Ll)+15,D1(Ll)+8) U 
1585 LINE(01(LI),D1(LI))-(01(Ll)+15,Dl(Ll)+8),2,BF 

1590 LINE(01(Ll)+1,D1(L1)+1)-(01(LI)+14,D1(Ll)+7),1,B:GOTO 1655 

1595 PUT(01(L2),D1(L2)),W,PSET:L2=40:GET(01(L2),Dl(L2))-(01(L2)+15,Dl(L2)+8) W 

1600 LINE(01(L2),D1(L2))-(01(L2)+15,Dl(L2)+8),3,BF 

1605 LINE(01(L2)+l,D1(L2)+1)-(01(L2)+14,D1(L2)+7),1,B:GOTO 1655 

1610 M(TR)=M(TR)+200:GOTO 1655 

1615 M(TR)=M(TR)+25:GOTO 1655 

1620 IF (TR-1 AND L2-10) OR (TR-2 AND Ll-10) THEN 1555 ELSE FF=2'G0T0 1655 

1625 M(TR)=M(TR)-100:FM-FM+100:GOTO 1655 

1630 M(TR)=M(TR)+20:GOTO 1655 

1635 M(TR)=M(TR)-150:FM=FM+100:GOTO 1655 

1640 M(TR)=M(TR)+100:GOTO 1655 

1645 M(TR)=M(TR)-50:GOTO 1655 

1650 M(TR)=M(TR)+12:GOTO 1655 

1655 LOCATE 18,52:PRINT C4$(CC):LOCATE 19,52:PRINT C5$(CC):PLAY"V15L6405C03C01C" 

:LOCATE 7,23:PRINT M(l);" ":LOCATE 7,53:PRINT M(2);" ";:FOR DL=1 TO 2800'NEX 

T:IF FF=2 THEN 2210 ' 

1.660 FOR WIPE-18 TO 19:L0CATE WIPE, 52 : PRINT STRING$(12," ") ; : NEXT ■ LOCATE 18 52'P 
RINT "CHEST ":FF=0 ’ 

1665 GOTO 500 
1670 ' 

1675 '***** CHANCE RESPONSE ***** 

1680 ' 

1685 FOR DL=1 TO 900:NEXT:PLAY"V10L64T255O3CO4CO5C":GOSUB 690:LOCATE 11 34:COLOR 

1 • DDTXTTItr 1 U A XT o n » ti ’ 


1:PRINT"C H A N C E !" 

1690 FOR WIPE—18 TO 19:LOCATE WIPE,17:PRINT STRING$(13, 


");:NEXT 
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1695 CC=INT(RND(1)*12)+1 

1700 ON CC GOTO 1705,1710,1715,1720,1790,1795,1830,1865,1900,1905,1940,1945 
1705 M(TR)=M(TR)-25:GOTO 1950 

1710 FINE=25*TH(TR):IF FINE=>(M(TR)+PRP(TR)) THEN 2330 ELSE M(TR)=M(TR)-FINE:FM= 

FM+FINE:GOTO 1950 

1715 JF(TR)=l:GOTO 1950 

1720 IF TR=2 THEN 1755 ELSE IF (Ll<5 AND L2=5) OR (Ll>4 AND Ll<15 AND L2=15) OR 
(Ll>14 AND Ll<25 AND L2=25) OR (Ll>25 AND L2=35) THEN 1695 
1725 PUT(01(L1),D1(L1)),U,PSET 

1730 IF Ll<5 THEN Ll=5 ELSE IF (Ll>4 AND Ll<15) THEN Ll=15 ELSE IF (Ll>14 AND LI 
<25) THEN Ll=25 ELSE IF (Ll>24 AND Ll<35) THEN Ll=35 ELSE IF (Ll>35 AND Ll<40) T 
HEN Ll=5 

1735 GET(01(LI),Dl(Ll))-(01(Ll)+15,Dl(Ll)+8),U 
1740 LINE(01(LI),Dl(Ll))-(Ol(Ll)+15,Dl(Ll)+8),2,BF 
1745 LINE(01(Ll)+l,Dl(Ll)+l)-(01(Ll)+14,Dl(Ll)+7),1,B 
1750 GOTO 1950 

1755 IF (L2<5 AND Ll=5) OR (L2>4 AND L2<15 AND Ll=15) OR (L2>14 AND L2<25 AND LI 
=25) OR (L2>25 AND Ll=35) THEN 1695 
1760 PUT(01(L2),Dl(L2)),W,PSET 

1765 IF L2<5 THEN L2=5 ELSE IF (L2>4 AND L2<15) THEN L2=15 ELSE IF (L2>14 AND L2 
<25) THEN L2=25 ELSE IF (L2>24 AND L2<35) THEN L2=35 ELSE IF (L2>35 AND L2<40) T 
HEN L2=5 

1770 GET(01(L2),D1(L2))-(01(L2)+15,Dl(L2)+8) ,W 
1775 LINE(01(L2),D1(L2))-(01(L2)+15,Dl(L2)+8),3,BF 
1780 LINE(01(L2)+l,D1(L2)+1)-(01(L2)+14,Dl(L2)+7),1,B 
1785 GOTO 1950 

1790 IF TR=1 THEN M(1)=M(1)-50:M(2)=M(2)+50:GOTO 1950:ELSE M(2)=M(2)-50: (1)=M(1 
)+50:GOTO 1950 

1795 IF (TR=1 AND L2=ll) OR (TR=2 AND Ll=ll) THEN 1695 ELSE IF TR=2 THEN 1815 EL 
SE 1800 

1800 PUT(01(L1),D1(L1)),U,PSET:Ll=ll:GET(01(LI),Dl(Ll))-(01(Ll)+15,Dl(Ll)+8),U 

1805 LINE(01(Ll),D1(L1))-(01(L1)+15,Dl(Ll)+8),2,BF 

1810 LINE(Ol(Ll)+1,Dl(Ll)+1)-(01(L1)+14,Dl(Ll)+7),1,B:GOTO 1950 

1815 PUT(01(L2),D1(L2)),W,PSET:L2=ll:GET(01(L2),D1(L2))-(01(L2)+15,Dl(L2)+8),W 

1820 LINE(01(L2),Dl(L2))-(01(L2)+15,Dl(L2)+8),3,BF 

1825 LINE(01(L2)+1,D1(L2)+1)-(01(L2)+14,Dl(L2)+7),1,B:GOTO 1950 

1830 IF (TR=1 AND L2=40) OR (TR=2 AND Ll=40) THEN 1695 ELSE IF TR=2 THEN 1850 EL 
SE 1835 

1835 PUT(01(Ll),Dl(Ll)),U,PSET:Ll=40:GET(01(Ll),D1(L1))-(01(L1)+15,Dl(Ll)+8) ,U 

1840 LINE(01(L1),Dl(Ll))-(01(L1)+15,Dl(Ll)+8),2,BF 

1845 LINE(01(L1)+1,D1(L1)+1)-(01(L1)+14,Dl(Ll)+7),1,B:GOTO 1950 

1850 PUT(01(L2),D1(L2)),W,PSET:L2=40:GET(01(L2),D1(L2))-(01(L2)+15,Dl(L2)+8),W 

1855 LINE(01(L2),D1(L2))-(01(L2)+15,Dl(L2)+8),3,BF 

1860 LINE(01(L2)+1,Dl(L2)+l)-(01(L2)+14,Dl(L2)+7),1,B:GOTO 1950 

1865 IF (TR=1 AND L2=24) OR (TR=2 AND Ll=24) THEN 1695 ELSE IF TR=2 THEN 1885 EL 
SE 1870 

1870 PUT(01(L1),D1(L1)),U,PSET:Ll=24:GET(01(Ll),Dl(Ll))-(01(L1)+15,Dl(Ll)+8),U 

1875 LINE(01(Ll),Dl(Ll))-(01(Ll)+15,Dl(Ll)+8),2,BF 

1880 LINE(01(L1)+1,D1(L1)+1)-(01(Ll)+14,Dl(Ll)+7),1,B:GOTO 1950 

1885 PUT(01(L2),D1(L2)),W,PSET:L2=24:GET(01(L2),D1(L2))-(01(L2)+15,Dl(L2)+8),W 

1890 LINE(01(L2),D1(L2))-(Ol(L2)+15,Dl(L2)+8),3,BF 

1895 LINE(01(L2)+1,Dl(L2)+l)-(01(L2)+14,Dl(L2)+7),1,B:GOTO 1950 

1900 FF=1:GOTO 1950 

1905 IF (TR=1 AND L2=39) OR (TR=2 AND Ll=39) THEN 1695 ELSE IF TR=2 THEN 1925 EL 
SE 1910 

1910 PUT(01(L1),D1(L1)),U,PSET:Ll=39:GET(01(Ll),D1(L1))-(01(L1)+15,Dl(Ll)+8),U 

1915 LINE(01(L1),D1(L1))-(Ol(Ll)+15,Dl(Ll)+8),2,BF 

1920 LINE(01(L1)+1,Dl(Ll)+1)-(01(L1)+14,Dl(Ll)+7),1,B:GOTO 1950 

1925 PUT(0l(L2),D1(L2)),W,PSET:L2=39:GET(Ol(L2),D1(L2))-(01(L2)+15,Dl(L2)+8),W 














1930 LINE(01(L2),D1(L2))-(01(L2)+15,Dl(L2)+8),3,Br 
1935 LINE(01(L2)+1,D1(L2)+1)-(01(L2)+14,Dl(L2)+7),1,B:G0T0 1950 
1940 M(TR)=M(TR)+50:GOTO 1950 
1945 M(TR)=M(TR)-15:FM=FM+15 

1950 LOCATE 18,18:PRINT Cl$(CC):LOCATE 19,18:PRINT C2$(CC):PLAY"V12L6403C":LOCAT 
E 7,23:PRINT M(l);" ";:LOCATE 7,53:PRINT M(2);" ";:FOR DL=1 TO 2800:NEXT 

:IF FF=1 THEN 2210 

1955 FOR WIPE—18 TO 19:L0CATE WIPE,17:PRINT STRING$(13," '*);: NEXT: LOCATE 18,17:P 
RINT "C H A N C E" 

1960 GOTO 500 
1965 ' 

1970 ****** TRADE PROPERTY ***** 

1975 * 

1980 GOSUB 690:LOCATE 11,17:COLOR 1:PRINT"TRADING ROUTINE: ONLY PROPERTY MAY BE 
TRADED!";:LOCATE 12,17:COLOR 1:PRINT N$(l);:LOCATE 12,24:PRINT": THIS ONE (Y/N)? 

It . 

1985 FOR TT-1 TO 40:IF 0(TT)=1 AND H(TT)=0 THEN LOCATE 12,43:PRINT P$(TT);:ELSE 
2000 

1990 AK$=INKEY$:IF AK$=""THEN 1990 

1995 IF AK$="Y"OR AK$="y" THEN 2010 ELSE 2000 

2000 LOCATE 12,43:PRINT STRING$(20," ");:NEXT 

2005 LOCATE 12,43:PRINT"NOTHING TO TRADE!":FOR DL-1 TO 1200:NEXT:GOTO 720 
2010 LOCATE 13,17:PRINT N$(2);:LOCATE 13,24:PRINT": THIS ONE (Y/N)?"; 

2015 FOR TU-1 TO 40:IF 0(TU)=2 AND H(TU)=0 THEN LOCATE 13,43:PRINT P$(TU);:ELSE 
2035 

2020 AK$=INKEY$:IF AK$=""THEN 2020 

2025 IF AK$="Y" OR AK$="y" THEN 2045 ELSE 2035 

2030 GOTO 2035 

2035 LOCATE 13,43:PRINT STRING$(20," ");:NEXT 

2040 LOCATE 13,43:PRINT"NOTHING TO TRADE!":FOR DL=1 TO 1200:NEXT:GOTO 720 
2045 GOTO 2075 

2050 0(TT)=2:0(TU)=1:PRP(l)—PRP(l)-MV(TT):PRP(1)=PRP(1)+MV(TU):PRP(2)=PRP(2)-MV( 
TU):PRP(2)=PRP(2)+MV(TT) 

2055 GOSUB 690:LOCATE 11,17:COLOR 1:PRINT"THE FOLLOWING TRADE IS RECORDED:"; 

2060 LOCATE 12,17:PRINT N$(l);" Trades ";P$(TT);" To" 

2065 LOCATE 13,17:PRINT N$(2);" For ”;P$(TU); 

2070 FOR DL=1 TO 1200:NEXT:GOTO 720 

2075 GOSUB 690:LOCATE 11,17:PRINT"Closing the deal-";:LOCATE 12,17:PRINT"Trade " 

;P$(TT);" for ";P$(TU); 

2080 LOCATE 13,17:PRINT N$(l);" Input Your Approval (Y/N) ?";:INPUT AP$:IF AP$=” 
y" OR AP$—"Y" THEN 2085 ELSE 720 

2085 LOCATE 13,17:PRINT STRING$(32," ");:LOCATE 13,17:PRINT N$(2);" Input Your A 
pproval (Y/N) ?";:INPUT AQ$:IF AQ$-"y" OR AP$="Y" THEN 2090 ELSE 720 
2090 GOSUB 860 

2095 FOR DL-1 TO 800:NEXT:GOTO 2050 
2100 ' 

2105 ’***** INCOME TAX ***** 

2110 ' 

2115 GOSUB 690:LOCATE 11,17:COLOR 1:PRINT"INCOME TAX !.";:COLOR 2:PRINT*'No 

EXCUSES!....Pay Up!";:COLOR 1 
2120 LOCATE 13,17:PRINT"Taxes Due...$200"; 

2125 FOR DUM=1 TO 2:PLAY"T120V15O1L4CP8L8DL6E-L4CP4":NEXT:PLAY"L3F+" 

2130 IF TR-1 THEN M(l)-M(l)-200 ELSE IF TR-2 THEN M(2)=M(2)-200 
2135 LOCATE 7,23:PRINT M(l):LOCATE 7,53:PRINT M(2) 

2140 FOR DL-1 TO 900:NEXT 
2145 RETURN 
2150 ' 

2155 ****** LUXURY TAX ***** 

2160 * 
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2165 GOSUB 690:LOCATE 11,17:COLOR 1:PRINT"LUXURY TAX !.LOCATE 12 17-COLO 

R 1:PRINT"No EXCUSES!.Pay Up!"; 

2170 LOCATE 13,17:PRINT"The TAX is $75.00"; 

2175 IF TR=1 THEN M(l)=M(l)-75 ELSE IF TR=2 THEN M(2)=M(2)-75 
2180 LOCATE 7,23:PRINT M(l):LOCATE 7,53:PRINT M(2) 

2185 FOR DL=1 TO 900:NEXT 
2190 RETURN 
2195 ' 

2200 ’*** IN THE JAILHOUSE *** 

2205 ’ 

2210 LOCATE 13,17:PRINT"YOU MOVE TO ";P$(10);STRING$(8," ");:FOR DL=1 TO 1000-NE 

XT ‘ 

2215 FOR SIREN=1 TO 2:FOR SN=700 TO 1000 STEP 5:SOUND SN,.8:NEXT 

2220 IF SIREN =2 THEN FOR SN=990 TO 400 STEP -16:SOUND SN,.4:NEXT 

2225 IF SIREN =1 THEN FOR SN=990 TO 700 STEP -16:SOUND SN,.8:NEXT 

2230 NEXT 

2235 IF TR=1 THEN PUT(01(L1),D1(L1)),U,PSET:Ll=10:GET(O1(10),Dl(10))-(Ol(10)+15 

D1(10)+8),U:LINE(01(10),D1(10))-(01(10)+15,Dl(10)+8),2,BF 

2240 IF TR=1 THEN LINE(01(L1)+1,D1(L1)+1)-(01(LI)+14,D1(Ll)+7),1,B 

2245 IF TR=2 THEN PUT(01(L2),D1(L2)),W,PSET:L2=10:GET(01(10),D1(10))-(01(10)+15 

Dl(10)+8),W:LINE(O1(10),D1(10))-(Ol(10)+15,Dl(10)+8),3,BF 

2250 IF TR=2 THEN LINE(01(L2)+1,D1(L2)+1)-(01(L2)+14,D1(L2)+7),1,B 

2255 IF JF(TR)=0 THEN LOCATE 21,34:PRINT"PAY $50 BOND";:M(TR)=M(TR)-50 

2260 IF JF(TR)=1 THEN LOCATE 21,34:PRINT"GET OUT FREE";:JF(TR)=0 

2265 FOR DL=1 TO 1200:NEXT:PLAY"V1503F":LOCATE 21,33:PRINT STRING$(14," "); 

2270 IF FF=2 THEN GOTO 1660 
2275 IF FF=1 THEN 1955 
2280 GOTO 720 
2285 ' 

2290 '***** FREE PARKING HERE ***** 

2295 ' 

2300 LOCATE 21,33:PRINT"YOU WIN $";FM:M(TR)=M(TR)+FM:FM=100:LOCATE 7,23:PRINT M( 
1):LOCATE 7,53:PRINT M(2); 

2305 FOR T00T=1 TO 2:FOR SN=1 TO 35:SOUND 300,.3:NEXT:FOR DL=1 TO 50:NEXT:NEXT 
2310 FOR DL=1 TO 800:NEXT:LOCATE 21,33:PRINT STRING$(14," ");:GOTO 720 
2315 ’ 

2320 '***BANKRUPT PLAYER*** 

2325 ' 

2330 GOSUB 690:LOCATE 11,17:COLOR 1:PRINT"BANKRUPCY COURTLOCATE 12,17:COLOR 
1:PRINT "YOUR CASH & PROPERTY VALUES ARE INSUFFICIENT!";:LOCATE 13,17:PRINT"IN 0 
THER WORDS, "N$(TR>" YOU'RE BANKRUPT !":F0R DL=1 TO 2500:NEXT DL 
2335 PLAY"V15L6403CEG04C03GEC":EG$="WINNER: " 

2340 IF TR=1 THEN NM$=N$(TR+1) ELSE NM$=N$(1) 

2345 GOSUB 690:EG$=EG$+NM$:LOCATE 12,20:PRINT EG$ 

2350 GOTO 2350 
2355 1 
2360 ' 

2365 ’RAILROAD FEES GO HERE 
2370 ' 

2375 FOR TRAIN=1 TO 2:SOUND 300,.4:SOUND 500,.4 
2380 IF TRAIN=1 THEN FOR SN=1 TO 80:SOUND 600,.1:NEXT 
2385 IF TRAIN=2 THEN FOR SN=1 TO 150:SOUND 600,.1:NEXT 
2390 NEXT TRAIN 

2395 IF TR=1 THEN IF RR0WN(2)=1 THEN RRIDE=25 ELSE IF RROWN(2)=2 THEN RRIDE=50 E 

LSE IF RROWN(2)=3 THEN RRIDE=100 ELSE IF RR0WN(2)=4 THEN RRIDE=200 

2400 IF TR=2 THEN IF RR0WN(1)=1 THEN RRIDE=25 ELSE IF RR0WN(1)=2 THEN RRIDE=50 E 

LSE IF RROWN(1)=3 THEN RRIDE=100 ELSE IF RR0WN(1)=4 THEN RRIDE=200 

2405 GOSUB 690 

2410 IF TR=1 THEN LOCATE 11,17:PRINT N$(2);" OWNS ";P$(LI);:LOCATE 12,17:PRINT"N 


90 pcm 


July 1986 











UP! 

wondering where to grow? 

Why not get IBM compatibility with 
Tandy’s 1200, or the new 3000, and 
take your OS-9 programs with you? 

TLM'S PC68K puts the 68000/68010 
processor and Microware's OS-9 
together in any IBM, or compatible, 
PC/XT/AT system, providing the 
best of both worlds with fully 
concurrent PC/68000 operation. 

• Powerful languages such as 

BASIC09, PASCAL and C 

• DYNACALC for spread sheet 

processing 

• The power of the 68000/68010 

• The price/performance and 

flexibility of the Tandy 1200 

and 3000 

TLM's PC68K.. .A great family 
to grow up with! 

IBM is a registered trademark of International Business Machines 
DYNACALC is a registered trademark of Computer Systems Center 
OS-9 is a registered trademark of Microware Systems Corp. 
CPM 68K Is a registered trademark of Digital Research Corp 
MK68000 MK68010 are registered trademarks of Motorola 
UNIX is a registered trademark of AT&T 



CLOCK SPEED 

8/10/12.5 MHZ 
Without wait states 

HARDWARE 

2 Parallel Ports 
3-9 Serial Ports 

68881 Floating point co-processor 
(optional) 

Memory mapped dual port bus for 
high speed DMA transfers 
Real time clock with battery 
backup 

Up to 16 boards can run con¬ 
currently from one AT/XT/PC bus 

MEMORY 

1-2 MB OF RAM 

(1 MB on board standard) 

8K-32K of ROM 

2K-8K of battery backed RAM 

MULTI-USER 

3-9 users (3 standard) 

High speed “Tick” timer with 10ms 
accuracy for efficient multi-user 
time slicing. 


OPERATING SYSTEMS 

OS-9 (Multi-user UNIX look-alike) 
C/PM-68K (popular single user OS) 
Both support concurrent access 
to PC DOS 
SOFTWARE 
Software selectable OS 
environment 

IBM Color/Mono Graphics Support 
Local and Global disk caching for 
maximum speed and efficient 
data transfer 
COMMUNICATIONS 
Powerful asynchronous/ 
synchronous data 
communications capability 
Bisynchronous SNA 3270, X.25, etc. 
MISCELLANEOUS FEATURES 
Remote and Local reset (hardware 
or software selectable) 

Remote and Local Non-maskable 
Interrupts (NMI) 

Stand alone hardware capability 
(without AT/XT/PC support) 



West: 4704 W. Jennifer, Suite 105, Fresno, CA 93711 209/276-2345 / East: 67 Grandview Avenue, Pleasantville, NY 10570 914/747-1450 













UMBER OF RAILROADS OWNED BY ";N$(2);" IS »; RROWN (2);: LOCATE 13,17 • PRINT-'YOU MUST 
PAY A FEE OF $";RRIDE:M(1)=M(1)-RRIDE:M(2)=M(2)+RRIDE MDST 

2415 IF TR-2 THEN LOCATE 11,17:PRINT N$(l);" OWNS P$(L2)LOCATE 12 17-PRINT"N 

U p?v R RAILR ? ADS 0WNED BY IS ";RROWN(l); : LOCATE 13,17: PRINT"YOU MUST 

PAY A FEE OF $";RRIDE:M(2)=M(2)-RRIDE:M(1)=M(1)+RRIDE 

2420 FOR RT-1 TO 4:COLOR 2:LOCATE 7,23:PRINT M(l);:PLAY"V15L6402D":COLOR l'LOCAT 
E 7,23:PRINT M(l);:NEXT:LOCATE 7,53:PRINT M(2);:FOR DI^l TO 900:NEXT:RETURN 
d 2 ! L L !, CATE 11,17: PRINT N$(1) ; " OWNS P$ (L2) ;: LOCATE 12,17: PRINT"NUMBER OF RAIL 
ROADS OWNED BY ";N$(1);» IS »;RROWN(1);:LOCATE 13,17:PRINT"YOU MUST PAY A FEE OF 
$";RRIDE:M(2)=M(2)-RRIDE:M(1)=M(1)+RRIDE 

243J2T FOR RT-1 TO 4: COLOR 2: LOCATE 7,53: PRINT M(2) ;: PLAY"V15L6402D" : COLOR l:LOCAT 
2435^^'^ INT ’ ; NEXT:LOCATE 7,23:PRINT M(l);:FOR DL=1 TO 900:NEXT:RETURN 

2440 ' 

2445 '***UTILITY PAYMENT DUE 
2450 ' 

2455 GOSUB 690:LOCATE 11,17 

2460 IF TR-1 THEN PRINT P$(L1);:ELSE PRINT P$(L2); 

2465 COLOR 2:PRINT"... Your BILL is DUE!";:COLOR 1 
2470 UBILL=4*(INT(RND(1)*12)+1) 

2475 IF TR-1 AND 0(12)-2 AND 0(28)=2 THEN UBILL=5*UBILL 

2480 IF TR=2 AND 0(12)=1 AND 0(28)-l THEN UBILL=5*UBILL 

2485 IF TR=1 THEN M(1)=M(1)-UBILL:M(2)=M(2)+UBILL 

2490 IF TR=2 THEN M(2)=M(2)-UBILL:M(1)=M(1)+UBILL 

2495 LOCATE 12,17:PRINT"The Outrageous Charge IS.$";UBILL- 

2500 PLAY-V15L6401F":LOCATE 7,23:PRINT M(l);:PLAY"V15L6401F":LOCATE 7,53:PRINT M 

| ( 2 ) , 

2505 FOR DL=1 TO 900:NEXT:RETURN 
2510 ' 

2515 '*** PASS GO *** 

2520 ' 

2525 LOCATE 21,32:COLOR 3:PRINT"PASS GO! Get $200";•COLOR 1 
2530 IF TR-1 THEN M(l)-M(l)+200 ELSE M(2)=M(2)+200’ 

2535 IF TR-1 THEN LOCATE 7,23:PRINT M(1);:ELSE LOCATE 7,53:PRINT M(2)■ 

2540 PLAY"V15L6405C04C03C":FOR DL=1 TO 800:NEXT:LOCATE 21 32'PRINT" 

";:COLOR 1 
2545 RETURN 
2550 ' 

2555 '*** PASS OUT ALL PROPERTY *** 

2560 ' 

I 2565 GOSUB 690:LOCATE 11,17:COLOR 2:PRINT"SELECTING PROPERTIES";:COLOR 1:LOCATE 
12,28,0:PRINT N$(1);:LOCATE 13,28,0:PRINT N$(2); 

2570 FOR PX=1 TO 14 

2575 XX=INT(RND(1)*39)+1:IF O(XX)=0 THEN 0(XX)=1:LOCATE 12,36,0:PRINT P$(XXV 
SE 2575 

2580 PLAY"03T64L64F" 

2585 XY-INT(RND(1)*39)+1:IF O(XY)=0 THEN 0(XY)=2:LOCATE 13,36,0:PRINT P$(XY)- 
SE 2585 

2590 PLAY"05T64L64F" 

2595 LOCATE 12,36:PRINT STRING$(25," ");:LOCATE 13,36:PRINT STRING$(25 » ")• 

2600 NEXT PX ’ 

2605 FOR X=1 TO 40:IF 0(X)=1 THEN 2610 ELSE 2615 

2610 PRP(1)=PRP(1)+MV(X):IF (X=5 OR X=15 OR X=25 OR X=35) THEN RROWN(1)=RROWN(1) 
2615 NEXT 

2620 FOR X-l TO 40:IF 0(X)=2 THEN 2625 ELSE 2630 

2625 PRP(2)=PRP(2)+MV(X):IF (X=5 OR X=15 OR X=25 OR X=35) THEN RROWN(2)=RROWN(2) 
2630 NEXT 


: EL 


: EL 


92 pcm 


July 1986 












2635 TR=1:GOSUB 86J2( 

2640 TR=2:GOSUB 860 
2645 GOTO 385 
2650 ' 

2655 *** MOVING THE PLAYING PIECES ickk 
2660 ' 

2665 IF LlO L2 THEN PUT(01(L1),D1(L1)),U:ELSE FL=0 
2670 PUT(01(L1),D1(L1)),U,PSET 
2675 FOR X=1 TO (RL1+RL2) 

2680 L1=L1+1:IF Ll> 40 THEN GOSUB 2525 
2685 IF Ll>=41 THEN Ll=Ll-40 

2690 IF L1=L2 THEN FOR DI^l TO 100:NEXT:PLAY"V10L64O2CO5CFOR DL=1 TO 75:NEXT:G 
OTO 2720 

2695 GET(01(L1),D1(L1))-(01(Ll)+15,D1(Ll)+8),U 
2700 LINE(01(L1),D1(LI))-(01(Ll)+15,Dl(Ll)+8),2,BF 
2705 LINE(01(L1)+1,D1(L1)+1)-(01(LI)+14,Dl(Ll)+7),1,B 
2710 PLAY"V12T64L6402C05C":FOR DL=1 TO 75:NEXT 
2715 PUT(01(L1),D1(L1)),U,PSET 
2720 NEXT X 

2725 IF L10L2 THEN LINE(01 (LI) , D1(L1) ) - (01 (LI)+15 , D1 (Ll)+8) , 2 , BF 
2730 IF L10L2 THEN LINE(01(L1)+1,D1(L1)+1) - (01(L1)+14, D1 (Ll)+7) , 1,B 
2735 RETURN 

2740 IF L20L1 THEN PUT(01 (L2) , D1 (L2) ) ,W: ELSE FK=0 
2745 PUT(01(L2),D1(L2)),W,PSET 
2750 FOR X=1 TO (RL1+RL2) 

2755 L2=L2+1:IF L2> 40 THEN GOSUB 2525 
2760 IF L2>=41 THEN L2=L2-40 

2765 IF L2=Ll THEN FOR DL=1 TO 100:NEXT:PLAY"V10L64O2CO5C":FOR DI^l TO 75:NEXT:G 
OTO 2795 

2770 GET(01(L2),D1(L2))-(01(L2)+15,D1(L2)+8),W 
2775 LINE(01(L2),D1(L2))-(01(L2)+15,Dl(L2)+8),3,BF 
2780 LINE(01(L2)+l,Dl(L2)+l)-(01(L2)+14,Dl(L2)+7),1,B 
2785 PLAY"V12T64L6402C05C":FOR DL=1 TO 75:NEXT 
2790 PUT(01(L2),D1(L2)),W,PSET 
2795 NEXT X 

2800 IF L20L1 THEN LINE(01 (L2) ,D1(L2) ) - (01(L2)+15 ,Dl(L2)+8) , 3 ,BF 
2805 IF L20L1 THEN LINE(0l(L2)+l, D1(L2)+1) - (01 (L2)+14,Dl(L2)+7),1,B 
2810 RETURN 
2815 ' 

2820 '*** ROLLED A DOUBLE *** 

2825 ' 

2830 LOCATE 17,33:PRINT" DOUBLE ROLLED! ";:FOR DL=1 TO 1500:NEXT:PLAY"V15L6403D" 

:LOCATE 17,33:PRINT STRING$(16," "); 

2835 IF TR=1 THEN TR=TR+1 ELSE TR-1 
2840 DB=0:RETURN 
2845 ' 

2850 '*** SUMMARY WINDOW *** 

2855 ' 

2860 GET(50,35)-(200,150),V 

2865 LINE(50,35)-(200,150),0,BF 

2870 LINE(51,36)-(199,149),3,B 

2875 LOCATE 6,8:COLOR 2:PRINT"REAL ESTATE:"; 

2880 EN=0:XX=8:COLOR 1 

2885 FOR PR0P=1 TO 40:LOCATE XX,8:PLAY"V15L6402F" 

2890 IF O(PROP)=0 THEN PRINT LEFT$(P$(PROP),8);:COLOR 1:PRINT "-BNK";:COLOR 1:EN 
=EN+1:XX=XX+1:COLOR 1 

2895 IF 0(PR0P)=1 THEN PRINT LEFT$(P$(PROP),8);:COLOR 2:PRINT"-";LEFT$(N$(1),3); 

:COLOR 1:EN=EN+1:XX=XX+1:IF B(PR0P)-1 THEN COLOR 3:PRINT"=Book";:COLOR 1 

2896 IF 0(PR0P)=3 THEN PRINT LEFT$(P$(PROP),8);:COLOR 2:PRINT"-";LEFT$(N$(1),3); 
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:COLOR 1:EN=EN+1:XX=XX+1:COLOR 3:PRINT"=Mrtg";:COLOR 1 

2900 IF 0(PR0P)=2 THEN PRINT LEFT$(P$(PROP),8)COLOR 3:PRINT"-";LEFT$(N$(2) 3)• 
:COLOR 1:EN=EN+1:XX=XX+1:IF B(PROP)=2 THEN COLOR 2:PRINT"=Book";:COLOR 1 

2901 IF 0(PR0P)=4 THEN PRINT LEFT$(P$(PROP),8)COLOR 3:PRINT"-»;LEFT$(N$(2) 3)■ 
:COLOR 1:EN=EN+1:XX=XX+1:COLOR 2:PRINT"=Mrtg";:COLOR 1 

2905 IF EN=10 THEN EN=EN-10:XX=XX-10:GOTO 2915 
2910 GOTO 2940 

2915 LOCATE 18,8:PRINT"< Any Key >"; 

2920 AK$=INKEY$:IF AK$=""THEN 2920 
2925 LINE(50,35)-(200,150),0,BF 
2930 LINE(51,36)-(199,149),3,B 
2935 LOCATE 6,8:PRINT"REAL ESTATE"; 

2940 NEXT 

2945 LOCATE 18,8:PRINT"Any KEY";: 

2950 AK$=INKEY$:IF AK$=""THEN 2945 

2955 COLOR 1 

2960 PUT(50,35),V,PSET 

2965 GOTO 720 

2970 ' 

2975 '** READ IN THE PROPERTY HERE ** 

2980 ' 

2985 FOR X=1 TO 40:READ P$(X),0(X),R0(X),R1(X),R2(X),R3(X),R4(X),R5(X),HC(X),MV( 
X) ,UN(X),P(X):NEXT X 

2990 DATA BALTIMORE AVE,0,2,10,30,90,160,250,50,30,33,60 

2995 DATA COUNTY CHEST,5,0,0,0,0,0,0,0,0,0,0 

3000 DATA MEDIOCRE AVE,0,4,20,60,180,320,450,50,30,33,60 

3005 DATA INCOME TAX,5,0,0,0,0,0,0,0,0,0,0 

3010 DATA READING RR,0,0,0,0,0,0,0,0,100,110,200 

3015 DATA ORIENTAL AVE,0,6,30,90,270,400,550,50,50,55,100 

3020 DATA CHANCE,5,0,0,0,0,0,0,0,0,0,0 

3025 DATA VERMIN AVE,0,6,30,90,270,400,550,50,50,55,100 

3030 DATA CONNECT AVE,0,8,40,100,300,450,600,50,60,66,120 

3035 DATA JAIL,5,0,0,0,0,0,0,0,0,0,0 

3040 DATA ST CHUCKS PL,0,10,50,150,450,625,750,100,70,77,140 

3045 DATA ELECTRIC CO,0,0,0,0,0,0,0,0,75,82,150 

3050 DATA STATES AVE,0,10,50,150,450,625,750,100,70,77,140 

3055 DATA VIRGINIA AVE,0,12,60,180,500,700,900,100,80,88,160 

3060 DATA PENN RR,0,0,0,0,0,0,0,0,100,110,200 

3065 DATA ST JAMES PL,0,14,70,200,550,750,950,100,90,99,180 

3070 DATA COUNTY CHEST,5,0,0,0,0,0,0,0,0,0,0 

3075 DATA TENNESSEE AVE,0,14,70,200,550,750,950,100,90,99,180 
3080 DATA NEW YORK AVE,0,16,80,220,600,800,1000,100,100,110,200 
3085 DATA FREE PARKING,5,0,0,0,0,0,0,0,0,0,0 

3090 DATA KENTUCKY AVE,0,18,90,250,700,875,1050,150,110,121,220 
3095 DATA CHANCE,5,0,0,0,0,0,0,0,0,0,0 

3100 DATA INDIANA AVE,0,18,90,250,700,875,1050,150,110,121,220 
3105 DATA ILLINOIS AVE,0,20,100,300,750,925,1100,150,120,132,240 
3110 DATA B & 0 RR,0,0,0,0,0,0,0,0,100,100,200 

3115 DATA ATLANTIS AVE,0,22,110,330,800,975,1150,150,130,143,260 
3120 DATA VENTNOR AVE,0,22,110,330,800,975,1150,150,130,143,260 
3125 DATA WATER WORKS,0,0,0,0,0,0,0,0,75,82,150 
3130 DATA MARVIN GDNS,0,24,120,360,850,1025,1200,150,140,154,280 
3135 DATA GO TO JAIL,5,0,0,0,0,0,0,0,0 , 0 , 0 

3140 DATA PACIFIC AVE,0,26,130,390,900,1100,1275,200,150,165,300 
3145 DATA N CAROLINA AVE,0,26,130,390,900,1100,1275,200,150,165,300 
3150 DATA COUNTY CHEST,5,0,0,0,0,0,0,0,0,0,0 

3155 DATA PENN AVE,0,28,150,450,1000,1200,1400,200,160,176,320 
3160 DATA SHIRT LINE RR,0,0,0,0,0,0,0,0,100,110,200 
3165 DATA CHANCE,5,0,0,0,0,0,0,0,0,0,0 
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317(2 DATA PORK PLACE,(2,35,175,5(2(2,11(2(2,13(2(2,15(2(2,2(2(2,175,192,35(2 
3175 DATA LUXURY TAX, 5 , (2, (2, (2, (3, (2,0, (2, (2, (2, (2 

318(2 DATA BIRDWALK, (2,5(2,2(2(2,6(2(2,14(2(2,17(2(3,2(2(2(2,2(2(2,2(2(3,22(2,4(2(2 
3185 DATA GO , 5 , (2, (2, (3, (2, (2, (3, (2, (2, (2, (2 
319(2 RETURN 
3195 ' 

32(3(2 '** DRAW THE PLAYING BOARD ** 

32(25 ' 

321(3 ' HOW TO CREATE FOLLOWING LINES.The CHARACTERS are created by holding 

3215 ' down the ALT key and typing in the corresponding CHR$ key on the Numeric 
322(2 ' Keypad. For example to get a '6' you HOLD ALT & type 2(21, then release. 
3225 ' 

323(2 ' i = 185 « = 186 £ = 187 ¥=188 k = 2(2(2 e = 2(21 6 = 2(22 

3235 ' u = 203 a = 204 e = 205 6 = 206 

3240 ' 

3245 '*** Don’t PANIC... Your printer MAY REFUSE TO LIST THESE LINES. 


u 


u 


eeeeeeeueeeeeueeeeeueeeeeueeeeeueeeeeueeeeeueeeeeueeeeeueeeeeueee 
duuuuuuuuu 
aeeeeeoeeeeeoeeeeeoeeeeeoeeeeeoeeeeeoeeeeeoeeeeeoeeeeei 
Aeeeeueoeeeeeoeeeeebeeeeeoeeeeeoeeeeeoeeeeeoeeeeeoeeeeeoeeeeeoeue 


u 


u u 


u u 


aeoe 


Aeeeeoei 

aeeeedeoeeeeeueeeeeueeeeeueeeeeueeeeeueeeeeueeeeeueeeeeueeeeeoeoe 

4eeeeeedeeeee6eeeee6eeeeedeeeee6eeeeedeeeeedeeeee6eeeee6eeeee6eee 


3250 ' 

3255 Bl$=" 
eee£" 

3260 B2$=" 
u" 

3265 B3$=" 
u” 

3270 B4$=" 
eeei" 

3275 B5$=" 
u" 

3280 B6$=" 
eeei" 

3285 B7$=" 
eeei" 

3290 B8$=" 
eee¥" 

3295 LOCATE 25,1:PRINT B8$; 

3300 LOCATE 1,1,0:PRINT Bl$:PRINT B2$:PRINT B3$:PRINT B4$:PRINT B5$:PRINT B6$:PR 
INT B5$:PRINT B6$:PRINT B5$:PRINT B6$:PRINT B5$:PRINT B6$:PRINT B5$:PRINT B6$:PR 
INT B5$:PRINT B6$:PRINT B5$:PRINT B6$ 

3305 PRINT B5$:PRINT B6$:PRINT B5$:PRINT B7$:PRINT B3$:PRINT B2$; 

3310 ' 

3315 ' *** GETTING the Graphic Dice! *** 

3320 ' 

3325 LINE(258,140)-(288,155),1,B:LINE(377,140)-(347,155),1,B 

3330 PSET(272,147):PSET(357,145):PSET(367,150):GET(258,140)-(288,155),NU:GET(377 
,140)-(347,155),NV:PSET(263,143):PSET(283,151):GET(258,140)-(288,155),NW:PSET(35 
7,150):PSET(367,145):GET(377,140)-(347,155),NX 

3335 PSET(362,147):GET(377,140)-(347,155),NY:PRESET(272,147):PRESET(263,143):PRE 
SET(283,151):PSET(268,144):PSET(268,148):PSET(268,152):PSET(278,144):PSET(278,14 
8):PSET(278,152):GET(258,140)-(288,155),NZ 
3340 ' 

3345 '*** Painting the Property *** 

3350 ' 

3355 PAINT(140,175),"L":PAINT(205,175),"L":PAINT(310,175),2,1:PAINT(345,175),2,1 
:PAINT(441,175),2,1:PAINT(498,175),2,1 

3360 PAINT(140,25),3,1:PAINT(205,25),3,1:PAINT(288,25),3,1:PAINT(310,175),1,1:PA 
INT(345,25),2,1:PAINT(441,25),2,1:PAINT(498,25),2,1:PAINT(310,25),1,1 
3365 PAINT(90,163),3,1:PAINT(90,137),3,1:PAINT(90,98),1,1:PAINT(90,80),"z":PAINT 
(90,55),"z":PAINT(90,30),"z" 

3370 PAINT(545,163),3,1:PAINT(545,137),3,1:PAINT(545,110),3,1:PAINT(545,98),1,1: 
PAINT(545,80),"M":PAINT(545,70),"M":PAINT(545,30),"M" 
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3375 LINE(115,125)-(240,160),1,B:LINE(515,125)-(390,160),1,B:LINE(115 35)-(515 7 
(3), 1,B:LINE(115,72)-(515,107), 1 ,B:PAINT(113,125) ,2,1 

338j2f LINE(120,128) - (235,157) , 1, B: LINE(510, 128) - (395,157) , 1, B: PAINT(117 126) 3 1- 
PAINT(512,126),3,1 k ; ’ ’ ' 

^/? 1 5 o L / I !I 1 f ( o 2 ?’ 75) ‘ (51 ^’ 1 ^ 4) ’ 1 > B:LINE < 12 ^> 38 >-( 51 P. 67 ) , 1 ,B: pAI N T ( 11 9,76) ,3,1: PAIN 
T ( 119 , / , 3,1 

339^ LOCATE 23,8:PRINT CHR$(24);"GO":LOCATE 23,68:PRINT"GO TO":LOCATE 24 68'PRIN 
T"JAIL!"; .-LOCATE 24,8:PRINT CHR$(192) ;CHR$(196) ;CHR$(196) ; 

3395 LOCATE 24,14:PRINT"BWALK"LOCATE 24,21:PRINT "TAX";:LOCATE 24 26-PRINT"PLA 
CE";:LOCATE 24,34:PRINT"?";:LOCATE 24,38:PRINT"SL RR";:LOCATE 24 44 : PRINT"PA AV" 
;:LOCATE 24,52:PRINT"LOCATE 24,56 ' 

340(21 PRINT"NC AV";:LOCATE 24,62 : PRINT"PC AV" ; 

3405 LOCATE 2,8:PRINT"JAIL":LOCATE 3,8:PRINT"BIRD":LOCATE 2,69•PRINT"FREE"•LOCAT 
E 3,69:PRINT"PARK" 

3410 LOCATE 2,14:PRINT"ST CH":LOCATE 2,20:PRINT"ELECT":LOCATE 2,26:PRINT"STATE"• 
LOCATE 2,32:PRINT"VA AV":LOCATE 2,38:PRINT"-PRR-":LOCATE 2 44-PRINT"ST JA"-TOCAT 
E 2,51:PRINT" $ ":LOCATE 2,56 
3415 PRINT"TENN.":LOCATE 2,62:PRINT"NY AV" 

3420 LOCATE 5,7:PRINT"CONN":LOCATE 7,7:PRINT"VERM":LOCATE 9,7:PRINT" ?":LOCATE 1 
1,7:PRINT"ORNT":LOCATE 13,7:PRINT"RRR-":LOCATE 15,7:PRINT"$200" 

3425 LOCATE 17,7:PRINT"MEDI":LOCATE 21,7:PRINT"BALT":LOCATE 19 7-PRINT" $" 

3430 LOCATE 5,70:PRINT"KENT":LOCATE 9,70:PRINT"IND.":LOCATE 11’70•PRINT"ILL "-LO 
CATE 7,70:PRINT" ?":LOCATE 13,70:PRINT"B&0" 

3435 LOCATE 15,70:PRINT"ATLA":LOCATE 17,70:PRINT"VENT":LOCATE 21,70:PRINT"MARV"• 
LOCATE 19,70:PRINT"WATR":LOCATE 8,24:PRINT"WAIT-I'm passing out the money!" 

3440 PAINT(50,190),2,1:PAINT(50,15),3,1:PAINT(585,190),3,1:PAINT(585 15) 2 1•PAI 
NT(620,10),CHR$(53) ’ * 

3445 LOCATE 17,32:PRINT STRING$(17," "):LOCATE 21,32:PRINT STRING$(17 " ")-LOCAT 
E 18,52:PRINT" C H E S T":LOCATE 18,17:PRINT"C H A N C E" 

3450 LOCATE 15,31:PRINT" TANYOPOLY" 

3455 TT$="Tanyopoly by L Hyre" 

3460 FOR TT=4 TO 22:LOCATE TT,2,0:PRINT » "+MID$(TT$,TT-3,1)+" "::NEXT•LOCATE 8 
24:PRINT STRING$(34," ") 

3465 RETURN 
3470 ' 

3475 '** READ IN COUNTY CHEST AND CHANCE HERE ** 

3480 ' 

3485 FOR CHANCE=1 TO 12:READ Cl$(CHANCE),C2$(CHANCE):NEXT 

3490 DATA JAYWALKER,$25 FINE!,$25 FOR,EACH HSE/HTL,GET OUT OF,JAIL FREE!.ADVANCE 
TO,NEAREST RR,PAY! EACH,PLAYER $50,ADVANCE TO,ST CHUCKS.ADVANCE TO,--- GO --- 
ADVANCE TO--.ILLINOIS AVE.GO TO JAIL,*DIRECTLY* 

3495 DATA ADVANCE TO-,*BIRDWALK*,LOAN MATURES,COLLECT- $50,PAY POOR TAX,--- $ 15 
3500 FOR CHEST=1 TO 12:READ C4$(CHEST),C5$(CHEST):NEXT 

3505 DATA COLLECT $50,FROM FRIEND,COLLECT $45,FROM STOCK,ADVANCE TO --- GO -- 
BANK ERROR!.COLLECT $200,RECEIVE $25,FOR SERVICES,GO TO JAIL,-DIRECTLY!- PAY $10 
0 .HOSPITAL,SOLD C-64,COLLECT $20,SCHOOL TAX,PAY $150,XMAS CLUB,COLLECT $100 

3510 DATA DOCTOR FEE,** $ 50 **,CONTEST,WIN $12 
3515 RETURN 

3520 RL=INT(RND(1)*6)+1:PRINT RL:FOR DL=1 TO 200:NEXT•GOTO 3520 
3525 ' * 

3530 '*** WHERE TO PUT PLAYING PIECES *** 

3535 ' 

3540 FOR LP=1 TO 40:READ Ol(LP),D1(LP):NEXT 

3545 DATA 53,158,53,141,53,126,53,110,53,93,53,78,53,62,53,46,53,30,53,8,113 6 1 

61,6,209,6,257,6,305,6,352,6,402,6,451,6,497,6,545,6,545,30,545,46,545,62 545 78 
’ 9 3 * 5 4 5 > X1 0 > 545, 12 6,545,141,545, 158 ,545,3.80,496,180,451,180,401,180,353 180 
3550 DATA 307,180,257,180,209,180,158,180,113,180,57,180 ^ 

3555 RETURN 


! ^ H w I 
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Barden's Buffer 


1000/1200/2000/3000 


Putting the squeeze on data files 


Squeezing Bytes 
on Disk 

By William Barden, Jr. 
PCM Contributing Editor 


old pro¬ 
grammer’s 
axiom 
(and I’m 
one of 
the old¬ 
est programmers you know) goes 
something like this: “The amount of 
available memory is always IK less 
than what is required.” A corollary 
says just about the same thing for disk 
storage. RAM is getting less and less 
expensive — about a dollar per kilo¬ 
byte. Hard disk prices are also falling 
— about 4.5 cents per kilobyte. 

In spite of these trends, we’re going 
to look at some software alternatives 


William Barden, Jr. is a master com¬ 
municator in a field in which he is one 
of the few recognized experts — mi¬ 
crocomputers. A prolific author of 
more than 27 books on computers and 
computer programming, Bill also has 
authored several instructional soft¬ 
ware projects for Tandy I Radio 
Shack. 


to packing more data onto disk files 
in this month’s column. What tricks 
can be used to pack more data onto 
disk? What are some of the data 
compression methods? What in the 
world is Huffman encoding? Regard¬ 
less of the amount of main memory or 
disk storage, you’ll find many cases 
where the memory axiom and corol¬ 
lary raise their ugly heads. 

Sequential Files 

The place to begin is with an old 
friend, the sequential file. Several 
months ago I did a column on sequen¬ 
tial files. In it, I told you I liked them 
because they are “user friendly.” With 
sequential files, you generally know 
what you have — you can do a TYPE 
command in MS-DOS and see the 
entire file printed without strange 
happy faces followed by control codes 
that cause screen clears and other 
unpredictable actions. 

Although it’s possible to incorpo¬ 
rate control codes (those characters 
with a value of less than 32 decimal) 
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or the extended character set (those characters with a value 
greater than 127 decimal), sequential files are usually ASCII 
files made up of alphabetic, numeric and special characters 
between 32 (space) and 127 (backspace). 

Take the following MS-DOS sequence, for example: 

A>copy con scratch 

They can have my Tandy 1000 when they pry my cold, dead 

fingers from it! 

Tippicanoe and Tandy too! 

A Z 

This sequence builds an ASCII (sequential) file called 
SCRRTCH made up of three lines. (I had to wrap the first 
line around in the text above, but not on the screen.) The 
file can be examined using Debug : 

A>debug scratch 
- d 

0931:0100 54 68 65 79 20 ....65 20 6D 79 They can have my 


The first column represents the memory location into 
which the file has been loaded (it may be different on your 
system). The bulk of the display consists of hexadecimal 
data showing the characters in sequence in the file. The 
right-hand portion of the display shows the corresponding 
ASCII characters, or periods if there are no displayable 
ASCII characters for the data. 

Between the first and second lines of the Debug dump, 
you’ll see: 

0931:0140 66 72 6F 6D 20 69 74 21-0D 0A 74 69 70 70 69 63 

for the location and Hex data. The 0D 0R represents the 
carriage return and line feed that make up the end of the 
first line. 

Processing Sequential Files 
with BASIC 

The nice thing about sequential files is that you can read 
in the files in BASIC and process them anyway you’d like. 
For example, this code would read in and print each line 
of the file plus the line length: 

100 OPEN ’’SCRATCH" FOR INPUT AS #1 
110 WHILE NOT EOF( 1 ) 

120 LINE INPUT#1, A$ 

130 PRINT A$; LEN( A$ ) 

140 WEND 

resulting in 

They can have my Tandy 1000 when they pry my cold, dead 
fingers from it!/ 72 
Tippicanoe and Tandy too!/ 25 

Creating Sequential Files with BASIC 

BASIC can process any ASCII file created by an MS-DOS 
COPY command, by a word processor, by telecommunica¬ 
tions or other means. BASIC, of course, can also create 
sequential files. In a BASIC sequential file, all data, even 
numeric data, is made up of ASCII characters. 

Suppose you want to create an inventory file with part 
number, description and quantity on hand, denoted by 
variables PN, DESC$ and QOH. Here’s one way to do it, 
working with keyboard entry data: 


100 OPEN "INVENT" FOR OUTPUT AS #1 
110 INPUT PN, DESC$, QOH 
120 PRINT#1, PN, DESC$, QOH 

A typical file created by this method is shown in Figure 

1 . 

Notice the three parts take up 134 bytes of disk storage, 
counting carriage return/line feeds (0D/0R) and end-of-file 
marker (1R), but only 81 characters are represented: 

100 Write-Only Memories 1234 

101 No-Sided Disk 125 

102 Archer Nuclear Device Kit 75 

This is a 40 percent waste of storage in this short file! 

A better way to store this data is by using PRINTtt with 
semicolons. See Figure 2. 

Here, 94 bytes were used for 82 bytes of actual data and 
only 13 percent of the file space was wasted, for carriage 
return/line feeds (0D/0R), spaces for padding (before and 
after numeric values) and the 1R end-of-file character. 

By the way, in this discussion we’re ignoring the fact that 
BASIC and MS-DOS allocate space for disk files in blocks 
of 1,024 bytes. Obviously, if files are very short, there’s going 
to be wasted space in the unused portion of the file. For 
typical large files, however, the unused space at the end of 
the last 1,024 bytes becomes less and less of a factor. A file 
of 65,000 characters, for example, uses 64 1,024-byte 
“clusters.” The 64th cluster uses only 488 bytes, but the 
overall wasted space is only 536/ 65,536 or 0.8 percent. We’re 
talking about large files here, but using short segments of 
data for examples. 

A third way of storing data in a sequential file is by using 
WRITEtt statements. WRITEtt is specifically geared to using 
minimum space on files. See Figure 3 for the modified code 
and the resultant file. 

Here, 94 bytes were also used, the reduction in padding 
spaces being offset by automatic insertion of commas and 
double quotes. 

There Must Be a Better Way 

Is that the best we can do? There must be a more efficient 
way to store data. 

Right at the outset, you can guess that there is, but 
compressing data on disk will not come cheaply, either in 
time or user friendliness. 

Random Files 

Random files are an alternative to sequential files. They 
should be used any time a file is not read through from 
beginning to end — the inventory example might access an 
unpredictable sequence of part numbers, for example — 
Part Number 34 followed by Part Number 105, followed by 
Part Number 2, etc. 

Random files, though, don’t usually save disk space over 
sequential files. As each record in a random file is fixed 
length, chances are much space is wasted, as the largest 
possible record size must be accounted for. In the sequence 

100 Write-Only Memories 1234 

10:1' No-Sided Disk 125 

102 Archer Nuclear Device Kit 75 

for example, the record size would probably be large enough 
to handle the last entry, as it’s the longest. 

On the other hand, random files with little text data and 
a lot of numeric data could conceivably result in some data 
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compression, as numeric values are stored in the record 
fields as numeric and not ASCII data. The value 104.56, 
for example, would be stored as a single-precision four-byte 
number instead of the six characters 1, 0, 4, .,5 and 6. 
Random files are not the answer. 

An Old Programmer’s Trick 

One method of data compression uses the following 
scheme: two bytes can hold values of zero to 65,535, 
unsigned. (BASIC integer values can be -32,768 through 
+32,767 in signed form, also in two bytes.) Suppose we use 
the two bytes to represent three digits with the base of 40. 
We’ll use the following codes: 


fl 

0 

u 

20 

B 

i 

V 

21 

C 

2 

w 

22 

D 

3 

X 

23 

E 

4 

V 

24 

F 

5 

z 

25 

G 

6 

0 

26 

H 

7 

1 

27 

I 

8 

2 

28 

J 

9 

3 

29 

K 

10 

4 

30 

L 

11 

5 

31 

M 

12 

G 

32 

N 

13 

7 

33 

□ 

14 

B 

34 

P 

15 

3 

35 


0 

16 

space 

36 

R 

17 


37 

S 

18 

new line 

38 

I 

19 

special 

39 


As long as data can be represented by these 40 characters, 
this “base 40 packing” scheme enables you to boldly pack 
three characters where two have gone before. Suppose, for 
example, you wanted to store the word “THE.” In this 
coding scheme, the representation would be: 

T * 40 2 + H * 40 1 + E * 40° = 

19 * 40 2 + 7 * 40 1 + 4 * 40° = 

30400 + 280 + 4 = 30,684 


The characters could be “unpacked” by a “divide and save 
remainders” technique: 

30,684/40 = 767, remainder 4 
767/40 = 19, remainder 7 
19/40 =0, remainder 19 

To see how this scheme works, look at listings 1 and 2. 
They show a packing routine that converts an ASCII file 
to a “base-40-packed” file and an unpacking routine that 
reconverts the packed file to an ASCII file. 


TOLL FREE ORDER LINE 
(800) 245-6228 

SPECIAL!!! 

SALE ON HARD DRIVE 
SYSTEMS FOR THE 
TANDY 1000 

INCLUDES WD CONTROLLER 
CABLES, MOUNTING HARDWARE 
& INSTRUCTIONS 


10 MEG....$385. 

20 MEG....$489. 

EXTERNAL CASE AND POWER SUPPLY 
_ ADD...$125. _ 

20 MEG 1/2 LENGTH HARD CARD $655. 
This Allows TWO FLOPPIES Internally!!! 

Memory Card with 512K DMA $149. 
Multifunction Card $99. 

1 Year Warranty on ALL Items!!! 


Call for 
LATEST 
PRICES!!! 
(800) 
245-6228 



M.C. & VISA Accepted 

OWL-Services 

P.O. Box 116-D 
Mertztown. PA. 
19539 

PA Res lnclude6%Tax 

PA (215) 682-6855 


The blood of Kings or of Knaves or both. 
Family Roots software helps you trace 
your bloodlines back through lost gener¬ 
ations and the mists of time. 


For your Apple, IBM, Commodore, Kay- 
pro, TRS-80,* and many others, Family 
Roots offers all kinds of genealogical assis¬ 
tance: Individual and group sheets, charts, 
name indices, general search and text 
capabilities. Adapts 
to most disk drives, 
printers, and screens. 
You get more utility 
programs, plus lots 
of personal control. 

A comprehensive 
(new) manual 
is included. 


Blood. 


All for just $185. 

Write or call today 
for more infor¬ 
mation and a 
free brochure. 


jMi 

Family 

Roots 


Quinsept, Inc. 

P.O. Box 216 
Lexington, MA 02173 
(617) 641-2930 

American Express, 

Visa, and MasterCard 
gladly accepted. 

• Trademarks for Apple 
Computer Inc., International 
Business Machines, CBM, Inc., 
Digital Research and Tandy Corp. 


July 1986 


pcm 99 



















Figure 1 


A>debug invent 
-d 

0931:0100 
0931:0110 
0931:0120 
0931:0130 
0931:0140 
0931:0150 
0931:0160 
0931:0170 
-d 

0931:0180 


20 

31 

20 

20 

20 

20 

20 

20- 

•20 

20 

20 

20 

20 

20 

57 

72 

69 

74 

65 

2D 

4F 

6E 

6C 

79- 

-20 

4D 

65 

6D 

6F 

72 

69 

65 

73 

20 

20 

20 

20 

20 

20 

20- 

-20 

20 

20 

31 

32 

33 

34 

20 

0D 

0 k 

20 

31 

30 

31 

20 

20- 

•20 

20 

20 

20 

20 

20 

20 

20 

4E 

6F 

2D 

53 

69 

64 

65 

64- 

■20 

44 

69 

73 

6B 

20 

20 

31 

32 

35 

20 

0D 

0 k 

20 

31 

30- 

•32 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

41 

12 

63 

68 

65- 

■72 

20 

4E 

75 

63 

6C 

65 

61 

72 

20 

44 

65 

76 

69 

63 

65- 

■20 

4B 

69 

74 

20 

20 

20 

20 

37 

35 

20 

0D 

0k 

1A 

3A 

C6 - 

■74 

0C 

3A 

C2 

74 

0 O 

E8 

8B 


100 Wr 

ite-Only Memorie 
s 1234 

. . 101 

No-Sided Disk 1 
25 .. 102 

Archer Nuclea 
r Device Kit 

75 ...:Ft.:Bt.h. 


Figure 2 


100 OPEN "INVENT" FOR OUTPUT AS #1 
110 INPUT PN, DESC$, QOH 
120 PRINT#1, PN; DESC$; QOH 


A>debug invent 
-d 


0931:0100 

20 

31 

30 

30 

20 

57 

72 

69-74 

65 

2D 

4F 

6E 

6C 79 20 

100 Write-Only 

0931:0110 

4D 

65 

6D 

6F 

72 

69 

65 

73-20 

31 

32 

33 

34 

20 0D 0A 

Memories 1234 .. 

0931:0120 

20 31 

30 

31 

20 

4E 

6F 

2D-53 

69 

64 

65 

64 

20 44 69 

101 No-Sided Di 

0931:0130 

73 

6B 

20 

31 

32 

35 

20 0D-0A 

20 

31 

30 

32 

20 41 72 

sk 125 .. 102 Ar 

0931:0140 

63 

68 

65 

72 

20 

4E 

75 

63-6C 

65 

61 

72 

20 44 65 76 

cher Nuclear Dev 

0931:0150 

69 

63 

65 

20 4B 

69 

74 

20-37 

35 

20 0D 0A 1A 8A C2 

ice Kit 75 ....B 

0931:0160 

3C 

2C 

8A 

Cl 

74 

03 

E8 

B3-00 

E8 

8F 

71 

72 

28 3C 0A 

< ,.At,h3.h. qr(< . 

0931:0170 

74 

EA 

3C 0D 

75 

0C 

8A 

C2-3C 

20 

74 

15 

3C 

2C B0 0D 

tj <.u. .B< t .< ,0. 


Listing 1: 

100 ' Convert ASCII Disk File to Base 40 Coded Disk File 
110 KEY OFF 

120 B40$ - "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 + CHR$(0) + CHR$(0) + 
"abcdefghijklmnopqrstuvwxyz" 

130 CLS 

140 LOCATE 1,16 

150 PRINT "Convert ASCII Disk File to Base 40 Coded Disk File" 

160 LOCATE 3,5: INPUT "Source File: ", SF$ 

170 LOCATE 4,5: INPUT "Dest File: ", DF$ 

180 OPEN SF$ FOR INPUT AS #1 
190 OPEN DF? AS #2 LEN-128 
200 FIELD#2, 128 AS BLOCK? 

210 BSTRING?-"": BSLEN - 0: BYTE - 0: DIGIT - 1600 
220 WHILE NOT EOF( 1 ) 

230 LINE INPUT#1, IN$ 

240 PRINT IN? 

250 FOR I - 1 TO LEN ( IN$ ): INCHR$ - MID$ (IN$, 1,1) 

260 V - INSTR( B40$, INCHR$ ) 

270 IF V - 0 THEN 300 

280 IF V > 40 THEN V - V - 40 

290 OUTCHR - V - 1: GOSUB 380 

300 NEXT I 

310 OUTCHR - 38: GOSUB 380 

320 WEND 

330 BYTE = BYTE + 39 * DIGIT: GOSUB 410 

340 IF BSLEN O 0 THEN LSET BLOCK? - BSTRING?: PUT#2 

350 CLOSE 

360 GOTO 130 
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370 ' Subroutine to output the next Base 40 character 
380 BYTE - BYTE + OUTCHR * DIGIT 

390 IF DIGIT O 1 THEN DIGIT - DIGIT / 40 ELSE GOSUB 410 
400 RETURN 

410 ' Subroutine to output next byte 

420 DIGIT - 1600: BSTRING? - BSTRING$ + CHR?( INT( BYTE / 256 ) ) + 

CHR$( BYTE - INT( BYTE / 256 ) * 256 ): BYTE - 0: BSLEN - BSLEN + 2 
430 IF BSLEN - 128 THEN LSET BLOCK$ - BSTRING?: PUT#2: BSTRING$ - 
BSLEN = 0 
440 RETURN 


Listing 2: 

100 * Convert Base 40 Codes Disk File to ASCII Disk File 
110 KEY OFF 

120 B40? - "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 .*/" 

130 CLS 

140 LOCATE 1, 16 

150 PRINT "Convert Base 40 Codes Disk File to ASCII Disk File" 

160 'Open source and destination files 
170 LOCATE 3, 5: INPUT "Source File: ", SF$ 

180 LOCATE 4, 5: INPUT "Dest File: ”, DF? 

190 OPEN SF$ AS #1 LEN-128 
200 OPEN DF$ FOR OUTPUT AS #2 
210 FIELD#!, 128 AS BLOCK$ 

220 'Read in and convert file 

230 ASCIIS$ - BIN? - : TERM - 0 

240 WHILE NOT TERM 

250 GET#1: BSTRING? - BLOCK$ 

260 FOR I - 1 TO LEN ( BSTRING? ) STEP 2 
270 BYTEl? - MID?( BSTRING?, I, 1 ) 

280 BYTE2? - MID$( BSTRING?, I + 1, 1 ) 

290 WORD - ASC( BYTEl? ) * 256 + ASC( BYTE2? ) 

300 C0DE2 - INT( WORD / 1600 ) 

310 C0DE1 - INT( ( WORD - CODE2 * 1600 ) / 40 ) 

320 CODE0 - WORD - ( CODE2 * 1600 ) - ( C0DE1 * 40 ) 

330 C0DE2? - MID?( 340?, CODE2 + 1, 1 ) 

340 CODE1? - MID? ( B40?, CODE1 + 1, 1 ) 

350 CODE0? - MID?( B40?, CODE0 +1,1) 

360 CCODE? - CODE2?: GOSUB 440: IF TERM THEN 400 

370 CCODE? - C0DE1?: GOSUB 440: IF TERM THEN 400 

380 CCODE? - CODE0?: GOSUB 440: IF TERM THEN 400 

390 NEXT I 

400 WEND 

410 IF ASCIIS? O THEN PRINT#2, ASCIIS?: PRINT ASCIIS?: ASCIIS? - 
420 CLOSE 
430 GOTO 130 

440 ' Subroutine to store current character, test for new lines, and terminator 
450 IF CCODE? O THEN IF CCODE? O ”/" THEN ASCIIS? - ASCIIS? + CCODE?- 
GOTO 480 

460 IF CCODE? - THEN PRINT#2, ASCIIS?: PRINT ASCIIS?: ASCIIS? - 
GOTO 480 

470 TERM - -1: PRINT#2, ASCIIS?: PRINT ASCIIS? 

480 RETURN 

The packing program works like this: The ASCII 
(sequential) file must contain only alphabetic characters A- 
Z, a-z, digits 0-9, blanks and periods. A space is substituted 
for all other characters. The program reads in the ASCII 
file one line at a time. Each line is then scanned from left 
to right for characters. As each character is encountered, 
it is converted to a base-40 character from the B40S array. 

Three of these characters at a time are packed into a single¬ 
byte value from zero to 63,999. The single-byte value is then 
stored into the next field of a random file. After each 128 
bytes, a PUT is done to write out a random file record. A 
“new line” character (38) is packed at the end of each input 
file line. The process continues until the end of the input 
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file, at which time the special character (39) is written out 
to mark the end of the file. 

Why is a random file used? It would be possible to use 
a sequential file except for one glitch: BASIC sequential files 
use a terminating IP (hexadecimal) character to mark the 
end of file. It’s possible a 1A character may be generated 
in constructing the data, as in the sequence “MAI,” which 
produces the two Hex bytes C0 and 1A. This erroneous end 
of file stops a read of the packed file in the unpacking 
program to be described. There’s no way around the 1A end 
of file except to use a random file, which expects and allows 
binary data. (By specifying a single field and using every 
byte in the field without blanks for padding, we can 







eliminate wasted space in the file.) 

The first portion of a packed file is shown in Figure 4. 
It contains the three inventory entries as before, but they 
are not recognizable! That’s one of the disadvantages of 
packing data in this fashion — you can’t just simply scan 
a file using TYPE (which produces garbage) or Debug. 

The unpacking program takes the packed random file and 
reads in (using GET) one 128-byte record at a time. As each 
record is read in, it is scanned as an ordinary string. Each 
byte of the string is reconverted to three base-40 digits, each 
digit having a value of zero through 39. The three digits are 
reconverted to the ASCII characters R-Z, 0-9, blank or 
period. A code of 38 results in a carriage return/line feed 
action. If the special character 39 is encountered it marks 
the end of file. This delimiter is necessary because the end 
of file may come anywhere within a random file record, 
unlike an ordinary random file record. 

The pack and unpack programs work relatively fast — 
11 seconds to process 1,000 characters when using a 
compiled version of the program. Data compression is 31 
percent — each file is compressed to 67 percent of the best 
case sequential or random file, not considering the unused 
portion of the file due to MS-DOS file allocation. However, 
this is probably not worth the trouble. After all, we can’t 
represent all of the 96 characters normally found in straight 
ASCII text. 

Huffman Coding 

In the base-40 coding and in ASCII encoding, each .pa 
character is assigned an equal “weight.” Both the letter ‘Q’, 


an infrequently used letter, and the letter ‘E’, a frequently 
used letter, have an equal number of bits to represent them. 
It would make for a more efficient representation of data 
if characters were assigned bit lengths based upon their 
frequency of use. Morse code, for example, uses a single 
“dot” of one unit of time (an audible bleep) for the letter 
‘E’ and the sequence “dash, dash, dot, dash” of 13 units of 
time for the infrequently used ‘Q\ The result is a higher 
“Baud rate” for Morse code keying. 

Huffman encoding uses such a frequency-dependent 
scheme. The letter ‘E’ may have a code length of four bits, 
while a ‘Q’ may have a code length of 10 bits. 

To Huffman encode any set of characters, the following 
method is used. Start with a frequency table of characters. 
We’ll use this table for ease of illustration: 

e 142 times 

h 40 

j 1 

m 20 

n 57 

q 0 

v 11 

Not all 26 alphabetic characters are here, of course, but 
the method works with any number of characters. 

Now build a list of the characters in order, as shown in 
Figure 5. Find the two characters with the lowest frequency, 
in this example ‘q’ and ‘j\ Connect the two characters with 
the branches of a “tree” and create a root with the new 
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This seems like a useful scheme of compressing data. In 
researching this column, I actually went through the process 
of producing a Huffman encoder and decoder routine. 
However, the end result was not too encouraging. The data 
compression for a 1,542-byte sequential file was 912 bytes, 
which is good — about a 41 percent compression. The code, 
however, was not trivial and moreover was rather slow, due 
to the bit shuffling in BASIC. Even the compiled version was 
barely acceptable as far as speed. If you would like to try 
this method of data compression, 1 strongly suggest using 
Turbo PASCAL, c or assembly language in place of BASIC. 


A Frequency Dependent Algorithm 

The Huffman approach shows promise. It appears the 
repetition of data should definitely be considered when 
compressing data. Let’s investigate the frequency of 
characters in text files further. 

The program shown in Listing 3 provides a count of 
characters versus their frequencies for any ASCII file. The 
results obtained for a typical PCM article are shown in 
Figure 6. It shows the bulk of characters are lowercase 
alphabetic characters — especially vowels. Blanks are the 
most common character. The 127 code here is used to 
represent the number of lines in the file (469). 


Figure 6: Frequency Distribution 
of Typical ASCII File 
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Listing 3: 

lJ3j 1 ' Build Frequency Table 

110 KEY OFF 

120 DIM FREQ ( 96 ) 

130 CLS 

140 LOCATE 1, 16 

150 PRINT "Build Frequency Table From Sample ASCII File" 
160 LOCATE 3,1: INPUT "File: ", SF$ 

170 PRINT 

180 OPEN SF$ FOR INPUT AS #1 
190 'Clear frequency table 
200 FOR I - 32 TO 127 
210 FREQ ( I - 32 ) - 0 
220 NEXT I 

230 ’Read in a line at a time 'til end 
240 WHILE NOT EOF( 1 ) 

250 
260 
270 
280 
290 


300 

310 

320 


LINE 1NPUT41, INPTS$ 

Scan line, bump character count 
FOR I - 1 TO LEN ( INPTS$ ) 

V - ASC( MID$( INPTS$, 1,1)) 

IF V < 32 OR V > 127 THEN PRINT "Invalid character at 
"position of INPTS$: GOTO 310 
FREQ( V - 32 ) - FREQ( V - 32 ) + 1 
NEXT I 

1 


I; 


FREQ( 95 ) - FREQ( 95 
330 WEND 
340 CLOSE 

350 'Display codes on screen 
360 FOR I - 32.TO 47 
370 
380 
390 
400 
410 
420 

430 NEXT I 
500 END 


) + 


PRINT 

USING 

"\\:#### 

it . 

; > J 

CHR$ ( 


I 


). 

FREQ( 

I 


32 

) 

PRINT 

USING 

"\\:#### 

M , 
♦ 

CHR$ ( 

I 

4- 

16 

). 

FREQ( 

I 

- 

16 

> 

PRINT 

USING 

"\\:#### 

I 

CHR$( 

I 

+ 

32 

>, 

FREQ( 


I 


) 

PRINT 

USING 

"\\:#### 

If . 

CHR$ ( 

I 

+ 

48 

), 

FREQ( 

I 

+ 

16 

) 

PRINT 

USING 

”\\:#### 

II . 

CHR$ ( 

I 

+ 

64 

), 

FREQ( 

I 

-f 

32 

) 

PRINT USING 

"\\:#### 

tf . 
> 

CHR$ ( 

I 

+ 

80 

>. 

FREQ( 

I 

+ 

48 

) 
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The total number of characters here is 19,256. Amazingly 
enough, the 15 highest frequency characters amount to 
14,686 characters, about 76 percent of the text in a typical 
ASCII file. This means we could encode two characters per 
byte (four bits per character) letting the values 0000, 0001, 
0010, 0011, 0100, 0101, 0110, 0111, 1000, 1010, 1011, 
1100, 1101 and 1110 represent the 15 characters: space, 0, 
a, c, d, e, h, i, 1, o, r, s, t, u and new line. (The code 1111 
would be reserved for special purposes.) 

This is a base-16 encoding scheme, analgous to the base- 
40 encoding seen earlier, but having the advantage that the 
“bit shuffling” to get at the codes is less complicated —just 
strip off the upper or lower four bits of every byte. 

The special code 1111 could signify the character lies 
outside of these 15 most frequent characters. It would point 
to the next four bits, which would hold codes for the next 
15 most frequent characters. From the frequency table, 
these characters represent about 14 percent of the characters 
found in a typical text file. Using this scheme, we could 
encode 76 out of 100 characters in about 38 bytes and 14 
out of 100 characters in 14 bytes — 90 out of 100 characters 
in 52 bytes! 

The remaining 10 percent of the characters, however, 
making up 66 various characters, would have to be encoded 
in an additional four bits or eight bits, adding about 17 bytes 
to the total for about 69 compressed characters out of 100 
original characters. Still, this is about the same as the base- 
40 encoding used earlier, and we’d be able to represent all 
96 ASCII characters (but without control codes). 

Word Repetition 

There are other repetitions to be considered as well, 
however. In text files, one obvious repetition is with words. 


The word “the” appears in this article about 280 times. 
“The” with a leading and trailing space takes up five bytes 
for every occurrence. Is there some way to encode this into 
a single byte or perhaps two bytes? When encoded into two 
bytes, 840 bytes would be saved, representing about 3.5 
percent of the total bytes used. 

One approach is to build a table of the commonly used 
words in a file. Each word is then assigned a single- or 
double-byte code value. These code values are used in place 
of the word, saving a great deal of space. This is the method 
used in Microsoft BASIC, which “tokenizes” the BASIC 
statements into (generally) one-byte codes to dramatically 
reduce storage requirements of BASIC programs. 

In an early computer book, Digital Computer Primer 
(McGraw Hill, 1959), Dr. E. M. McCormick, now at 
California State University, Fullerton, did an interesting 
analysis on this topic. His entire book was represented on 
punched cards! Analysis of the 57,936 words in the book 
showed the most frequent 15 words used (the, of, a, in, is, 
to, and, be, this, for, are, or, it, as, and computer) were 
repeated from about 500 to 4,500 times. If these words alone 
were encoded into two bytes, the savings would be 47,871 
bytes or roughly 13 percent of the disk storage. 

If the 3,128 most common words were encoded in this 
fashion, about a 34 percent reduction in space could be 
accomplished. This suggests that an encoding by letter 
frequency and word frequency results in a space compres¬ 
sion of about 47 percent, reducing text disk files to about 
half of their original size. Even with cheap memory and disk 
storage, this is a significant amount. 

We’ll show you what we came up with in the second part 
of this interesting problem next month. 


RUD’s REVIEW " 1 

A Guide to Mutual Funds 

Software that can easily pay for itself many times over. 
Use RUD’s to learn about the mutual fund industry or 
use RUD’s to help identify funds meeting your invest¬ 
ment needs and objectives. A complete mutual fund 
information retrieval system on diskette. RUD’s 
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load, IRA accounts, and size 
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• Tandy 1000/1200/3000 

• Easy to use and 
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Only $39.00 + $3.00 shipping 

Visual Information Sytems, Inc. 
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Submitting Material To PCM 

Contributions to PCM are welcome from everyone. 
We like to run a variety of programs that will be useful/ 
helpful/fun for other Tandy Portable and MS-DOS 
computer owners. We now support the Tandy portable 
models 100, 200 and 600 and the Tandy 1000, 1200, 2000 
and 3000 MS-DOS computers. 

Program submissions must be on tape or disk, and it 
is best to make several saves, at least one of them in 
ASCII format. We’re sorry, but we do not have time to 
key in programs. All programs should be supported by 
some editorial commentary explaining how the program 
works. Generally, we’re much more interested in how 
your submission works and runs than how you developed 
it. Programs should be learning experiences. 

Pay for submissions is based on a number of criteria. 
The rate of remuneration will be established and agreed 
upon prior to publication. 

For the benefit of those who wish more detailed 
information on making submissions, please send an 
SASE to: Submissions Editor, PCM, The Falsoft 
Building, P.O. Box 385, Prospect, KY 40059. We will 
send you comprehensive guidelines. 

Please do not submit programs or articles currently 
submitted to another publication. 

If you feel qualified to review software and/or 
hardware products for computers covered in PCM, send 
us your name, address and phone number; we will send 
you a questionnaire form and a copy of our reviewer 
guidelines. 
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Reviews 


Programmer’s 
Toolkit: 'Nuts and 
Bolts’ for 
Programming 


Software 1000/1200/2000/3000 


An electrician needs a toolkit to do 
his job. Programmers need toolkits too. 
The tools of a programmer’s trade are 
interpreters, compilers, code creation 
tools and special utilities to help debug 
and document his works of art. The 
most common utilities needed are 
source deck editing, listing and cross- 
reference tools. For those who compile 
BASIC programs, it’s helpful to have a 
tool to remove unnecessary line 
numbers. Removal of these unnecessary 
lines reduces code bulk and makes 
following the logic easier. 

The BASIC Programmer's Toolkit 
Version 1.10 provides three of these 
tools, plus a fourth on one non¬ 
protected diskette. The fourth tool is a 
line number re-inserter for compiled 
BASIC source decks. Each tool is a 
separate program. The utilities are 
advertised to work on Tandy 1000, 


1200, 2000 and 3000 computers. 

Lister — A Program Lister 

Have you ever LLISTed a program, 
separated and punched the listing, 
inserted it into a binder, and discovered 
the three hole punches removed parts of 
line numbers, some lines of coding were 
printed on the perforations and ended 
up half on one page and half on the 
next, the pages were unnumbered and 
the program name didn’t appear any¬ 
where? 

Lister solves these problems by allow¬ 
ing you to obtain a listing with specified 
margins, blank lines at the bottom of 
the page and single or multiple line 
spacings. It can also list many programs 
in one program run. A final feature is 
the ability to list selected pages. Pro¬ 
grams must be in ASCII format for 
Lister to function. 

Unfortunately, the program did not 
work with my Radio Shack DMP-120 
printer. The program first sent some 
kind of control code that put my printer 
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in the graphics mode. All subsequent 
lines were blank, except the form feed 
advanced the printer one line. A call to 
the author revealed that the program 
was tested on numerous printers and 
worked successfully. However, most of 
the printers tested were Epson- 
compatible. The manual says nothing 
about compatible printer types. 

I was able to get a printout by switch¬ 
ing off the printer and quickly switching 
it on when the program started to run. 
This chops off the title line and first 
page number. Next, my printer indented 
correctly but printed a character at the 
front of each line, which means “I don’t 
understand the character you sent.” 
There is apparently another control 
code sent at the beginning of each line. 
I later tested this program with an 
Epson printer and it functioned prop¬ 
erly. The author has agreed to fix these 
bugs to permit future operation with a 
wider variety of printers. 

Documentation is adequate and al¬ 
most unnecessary. The program leads 
the user through the required input. 

Crossref — A Cross-Reference Tool 

The critics of BASIC say “spaghetti 
code” whenever they find fault. It would 
be nice to reply, “Nonsense, I know 
where every GOTO goes to and on what 
lines all my variables appear,” but you’d 
stay up several nights producing such a 
variable and line number cross- 
reference. Obtaining this cross- 
reference documentation is a job for a 
computer. Fortunately, programs exist 
that can untangle spaghetti code and 
produce this useful information. 

Crossref is the Toolkit's utility pro¬ 
gram that performs this task. It also 
permits a listing of the program. Both 
types of output can only go to the 
printer. The program to be cross- 
referenced must be in ASCII format. 
Up to 10 programs may be cross- 
referenced in one run. 

First, I ran a small program through 
Crossref. It worked fine. Each line 
number referenced by a GOTO or GOSUB 
is printed, followed by a listing of lines 
that called it. Next, each variable is 
printed and followed by the lines in 
which it appears. 

After this preliminary test, a 600-line 
BASIC program was run through Cross¬ 
ref to perform an acid test. The results 
were not too good. The program was 
not able to properly construct a variable 
cross-reference listing. Variables that 
contained BASIC reserve words con¬ 
fused the program. For example, the 


variable CLINE was listed under ‘C\ The 
program thought the LINE portion was 
a BASIC command. This type of problem 
can easily occur when one uses BASIC 
string functions to decode a line. 

One must also build in the logic to 
determine what constitutes a variable 
and what constitutes a BASIC command. 
For GW-BASIC, a variable can be more 
than 100 characters long. It is the spaces 
that delineate variables. Other basics 
(e.g., Microsoft BASIC as implemented 
on the Tandy Color Computer) only 
allow up to two characters per variable 
name. Spaces are not needed. There¬ 
fore, the logic to recognize a variable 
must be different for different imple¬ 
mentations of BASIC. Discussions with 
the author revealed that this program 
was not originally written for GW-BASIC. 

The list option of Crossref worked 
reasonably well. I did have a few minor 
problems. Lines where tabs have been 
inserted to space the coding inward 
confused the program. Extra blank 
lines were printed. The pagination was 
confused from there on. I was not able 
to break out of the program during a 
listing. 

Documentation was sufficient and 
not really necessary. The program asks 
for all the needed data. 

The program author agreed that 
these bugs would be fixed in a future 
version. 

Number and Replace — Line Number 
Deletion and Insertion Utilities 

These two utilities are aimed at the 
BASIC programmer who compiles pro¬ 
grams. BASIC compilers produce faster 
running code than the BASIC interpreter 
supplied with most PCs. Generally, the 
compilers only need line numbers if a 
line is the object of a GOTO or GOSUB. 
Removal of the unnecessary lines pro¬ 
duces smaller source and object code. It 
also improves readability. These codes 
would generally be used in the following 
scenario. 

A program is first written in inter¬ 
preted BASIC. (In my own experience 
debug and program development is 
three to 100 times faster when working 
with an interpreter.) Before compila¬ 
tion, the program is run through 
Number and unnecessary line numbers 
are removed. The code is then compiled. 
If all goes well, the compiled program 
runs successfully. If sometime in the 
future the programmer wants to add 
something else or change a large portion 
of the coding, he could directly edit the 
source deck and go through successive 


compilations and program runs to 
debug the coding. 

The Replace code gives the pro¬ 
grammer another more efficient way to 
program and debug the changes. If the 
programmer first runs his code through 
Replace , it reinserts line numbers. The 
resultant code then functions with the 
BASIC interpreter. This later course 
usually speeds up program alteration 
and debugging. Note: Replace does not 
reproduce the original line numbers, so 
all old cross-reference listings would not 
apply. 

The Number code could also be 
useful to those who only program in 
interpreted BASIC. I found it was much 
easier to follow program logic flow 
without all the unneeded line numbers. 
Of course, you could not run the result¬ 
ant code with the interpreter. 

To test these two codes, both the 
simple test problem and the 600 line 
problem were used. First, the programs 
were run through Number to remove 
unreferenced line numbers. Then the 
output from Number was entered 
through Replace. The source decks 
coming from Number were then run in 
BASIC and produced correct results. 
Both utilities worked flawlessly. 

Documentation was sufficent and not 
really necessary. 

Conclusions 

The cost of the BASIC Programmer's 
Toolkit is moderate. It functions about 
as well as one can expect from a $10 
code package — assuming the author 
fixes the bugs. Crossref is not compet¬ 
itive. There exist a number of public 
domain programs that produce cross- 
reference listings with much more detail 
— where all constants, strings and 
BASIC reserve words also appear. More 
expensive cross-reference tools even 
point out where a variable is defined (set 
to a value). Personally, I found it a pain 
to have to convert a code from BASIC 
tokenized form to ASCII before using 
Lister and Crossref. Number and Re¬ 
place function flawlessly. Typically, 
compilers use ASCII code input, there¬ 
fore there are no added steps required 
for use of Number and Replace. 

Should you buy them? It depends. If 
you use interpreted BASIC only, then 
shop elsewhere. If you need all four 
tools, the Toolkit is a reasonably priced 
package. 

(MVP Software, 1035 Dallas SE, Grand 
Rapids, MI 49507, $39.95) 

— Brian H. Alsop 
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“Every once in awhile there is a software product 
that gives you faith in the future of software.” 

March-86 A1 TRENDS review of ALTYPIST 



The only word processing program with a REAL real-time spell checker 
that highligh ts any errors you make.. .without that annoying “BEEP”! 



ALTypist revision 1.16 contains all the 
features you need in a word processing 
program. Margin & tabs, cut & paste, 
search and replace, automatic para¬ 
graph reformatting, bold, underline 
and center text. 

But a truly unique feature of ALTypist 
is the real-time spell checker. If you make 
a typing or spelling error ALTypist 
will point it out the instant you touch 
the wrong key, highlighting it on the 
screen. No annoying "BEEP”. You can 
correct it now or later, and if you really 
want to be “BEEPED” at, it’ll do that too. 

ALTypist, if you make a mistake, 
it won’t tell the world. 


SPECIAL OFFER! 

$69.95 

Order ALTypist now and save $30.00. 
ALTypist has a full 30 day money back 
guarantee and is not copy protected. 
List price $99.95. Offer expires 7-31-86 


To order call toll free 
1-800-547-3000 Dept 222 
In Oregon or outside the U S. 

1-503-684 3000 Dept.222 

AI.Typist runs on IBMand compatible PC's 
with 256KB and DOS 2.0 or later 

IBM IS a registered trademark of International Business Machines 
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Power-100 
and Power-200 
Keeps Your 
Portable Running 

The Power-100 and Power-200 re¬ 
chargeable battery packs from 
A.R.M.S. Computer Products are a 
practical alternative to expensive AA 
alkaline batteries for your Model 100, 
Model 200, and various other 6-volt 
peripheral devices. 

The Power-100 weighs five ounces 
and is X A inch in diameter. The Power- 
200 weighs seven ounces and is 5 /s inch 
in diameter. Both battery packs are 10 
inches long. 

The Power-100 will provide a Model 
100 with 10 hours of power and a Model 
200 with eight hours of power. The 
Power-200 has 33 percent more battery 
life than the Power-100 and will provide 
a Model 100 with 13 hours of power and 
a Model 200 with 11 hours of power. 


Both packs easily attach to the back 
of the computer with self-adhesive 
velcro. The computer fits into the 
original carrying case with the battery 
pack attached. 

The batteries connect to the compu¬ 
ter where the AC adapter normally 
connects. The standard AC adapter 
which powers your computer is used to 
recharge the battery packs and they can 
be recharged while you are using the 
computer thanks to a separate female 
connector built into the battery pack. 
This means no down time while charg¬ 
ing. A 50 percent charge takes about 
four hours, while a full charge requires 
16 hours. Of course, a 100 percent 
charge cannot be reached if the batteries 
are charged while the computer is being 
used. 


(A.R.M.S. Computer Products and Servi¬ 
ces, 12131 Old Buckingham Road, Midlo¬ 
thian, VA 23113, (804) 794-6675, Power- 
100: $39.95, Power-200: $49.95, shipping is 
included.) 

— Chris Wehner 


Turbo Pascal 3.0: 
Even Faster and 
Better 

If you’re accustomed to program¬ 
ming in BASIC and have shied away 
from making the transition to PASCAL, 
it’s understandable. Despite its highly- 
touted structured environment and 
increased program execution speed, 
standard PASCAL lacks the rich and 
diverse repertoire of functions one finds 
in GW-BASIC. 

The object code produced by PASCAL 
compilers, though it runs faster than 
BASIC programs, is usually not as fast 
as object code produced by assembly 
language or C. Hence, for years, if I 
absolutely needed fast program execu¬ 
tion, I would resort to assembly lan¬ 
guage and/or C. If speed was not that 
important and I wanted to complete a 
software project as soon as possible, 
there was always the old standby, 
BASIC. 


“...The best software product of its kind, that 

I have come in contact with Computer Language Magazine 

“I’ve found the best in CCSM...fast in development and 
fast in execution...no data-typing problems, no concerns for 
program size, no concerns for file or device opens...” r.d. AshwoM, Ph.D. 

“...5 years in Basic, Pascal, C, dBase, and Dataflex...! have 
never worked with a language/programming environment 
as responsive, easy to use and as powerful as 
COMP Computing Standard MUMPS” p.k. wayne, md, p*.d. 

Solve your database problems with CCSM, the 

Database Language. It comes with a 250 page manual, to 
lead you step-by-step through this versatile and easy 
to learn language. Included is a 100 page Introduction 
to MUMPS, presented in an easy-to-follow format. 

These Options Will Cive You 

an Even Faster Start! 

“Cookbook of MUMPS” 180 page manual with 
accompanying disk. Includes dozens of fully documented 
routines and utilities, with examples of controlling output 
and display, global design hints, and mathematical 
functions. RECOMMENDED 

Toolkit I: Pull-down and pop-up menus, pop-up 
calculator, general-purpose menu driver, screen planning 
utilities, pop-up notepad, standardized input handler, 
and demonstration software. VERY USEFUL 

Multi-tasking, Too! Run multiple concurrent back¬ 
ground processes for data searches, report generation, etc. 

Also Available •Multi-User •Graphics 


Equipment: IBM-PC, AT, XT and most compatibles including those by Tandy, Compaq, Texas Instruments, 
Sperry, AT&T, Kay pro and others. Memory: Single User: 128K; Multi-User: 256K and up 


call now for faster service 
if you prefer, order by mail 

MGIobal 

1601 Westheimer, Suite 201 
Houston, TX 77006 

VISA _ MC_ AMEX_ expires _/ — 

card no. ___ 


1 - 800 - 257-8052 


In Texas 713-529-2576 

Please send me the following ... 

Single User disk and operations manual_$59.95 

“Cookbook of MUMPS” (includes disk)_$24.95 

SPECIAL Single user & “Cookbook”-$75.90 

Multi-tasking_$149.95 

Programmer’s Toolkit I_$49.95 

Graphics option_ $49.95 

Multi-user_$450.00 

MacMUMPS (Macintosh version)_$89.95 

shipping and handling $3.00 

Texas residents add 6 1/8% sales tax_ 


name 
street 
city _ 


-ZIP- 


Disks are non-copy-protected 
day phone_- 
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This situation changed when Borland 
International released Version 2.0 of 
Turbo PASCAL. This venerated compiler 
is the most popular PASCAL for IBM PC 
compatible and CP/M computers. 
Turbo PASCAL 2.0 required less memory 
than other PASCALS, took less time 
compiling, produced programs that ran 
like the proverbial jack rabbit, had a list 
of functions comparable to the best 
advanced BASIC interpreters and cost 
$49.95! 

Now there is Turbo PASCAL 3.0. 

First, Borland has improved its pro¬ 
duct so the program object code it 
creates is even faster. Speeds can actu¬ 
ally approach those of hand-assembled 
machine code. For instance, it took 
hours to sort 1,045 records of 117 bytes 
each using a BASIC sort program on my 
Tandy 1200HD. The same algorithm 
written in Turbo PASCAL took less than 
one minute to sort the same file. 

Next, they added more instructions 
to the language, most noticeably in the 
graphics area. But they still weren’t 
content implementing PASCAL equiva¬ 
lents of many of GW-BASIC graphics 
statements (CIRCLE, GET, PUT, etc.). 


They threw in the convenient “turtle” 
graphics instructions one normally 
finds in LOGO for good measure. 

There are all kinds of string and 
screen output functions that evidently 
exist to facilitate the development of 
word processors and/or text editor 
software. Writing a word processing 
program in Turbo PASCAL would be 
much easier than doing so with BASIC 
or another PASCAL. Two of the screen 
output statements are: InsLine, which 
moves lines (beginning with the line the 
cursor is on and ending at the bottom 
of the screen) down one line, leaving a 
blank line at the cursor position; the 
opposite function, DelLine, which 
deletes the line containing the cursor, 
then moves all the lines below the cursor 
up one line. 

Turbo PASCAL comes with a program 
editor. The editor is a WordStar work- 
alike. Users who do a lot of word 
processing with WordStar will feel right 
at home with this editor. The great thing 
about the editor is that it’s interactive, 
that is, should the compiler find an 
error, it not only informs the user what 
and where the error is, but automati¬ 
cally puts the user back into the editor 


at the problem point. 

Unlike Microsoft’s MS-PASCAL, 
Turbo PASCAL is a one-step compiler. 
No linking is required, making it much 
easier to use, especially for the novice. 
It also creates more compact code than 
the Microsoft product, which results in 
the faster run times mentioned earlier. 

The documentation included is a 
hefty 376 pages. The author assumes the 
reader has some prior knowledge of 
PASCAL, otherwise, the material is 
presented in a fairly straightforward 
manner. 

Some small sample programs are 
included on the one disk that comes in 
the package. They’re not very sophisti¬ 
cated and really don’t do the compiler 
justice. Perhaps I’m being too harsh. 
After all, they were thrown in for free. 

There are far too many features in 
Turbo PASCAL 3.0 to describe here. But 
at only $20 more than Version 2.0, it’s 
a steal. 

Alas, poor BASIC, I knew it well. 

(Borland International, 4585 Scotts Valley 
Drive, Scotts Valley, CA 95066, $69.95) 

— Rick Boozer 


YOU ALREADY HAVE 
HALF OF THE BEST 
WORD PROCESSING 
SYSTEM IN THE WORLD 



For more, your MuItiMate, 

Display Write, WordStar, pfs:WRITE, 
VolksWriter, Writing Assistant or other WP 

fourteen 
automatically 


Software 1 can instantly 

columns of text, w ^ ^ 

^j^create outlines, calendars 
newsletters^ contracts, / 

_ » ea sy mail merges 
screenplays, scripts, footnotes 2 , 

| boxed copy | and lots more. It’s fun with 



PowerText 

formatter 

TO ORDER, CALL OR WRITE: BEAMAN PORTER, INC. 

417 HALSTEAD AVENUE 


Any other MS-DOS or ASCII WP Software 
2 On the same page or end of your document 


*Add $5 for Shipping and Handling. 


HARRISON, NY 10528 
(800)431-0007 

(914) 835-3156 IN NEW YORK 


For Your MSDOS Computer 

Tandy 1000/1200/2000/3000 and PCs 

1 

RAMDISK 

($49) 

1 Use spare memory 

■ disks. Any size. 

■ Appears to progi 
1 access. Highly efl 

to simulate one or 

more super-fast 

Greatly speed up ex 
rams as a disk, bi 
Icient, compact, and 
to install and chang< 
> access report. 

isting applications. 

Jt gives instant 

thoroughly tested, 
e RAMDISK size, 

1 Includes program 
■ and RAMDISK l/C 


A Perfect File Backup System !!! 

Finally, an easy to use backup program that keeps exact 
images of your files on backup floppies, cartridges, or 
hard disk. Automatically backup one, several, or ALL 
subdirectories. Backup modified only or ALL files. 
Keeps perfectly organized backups - backup structure and 
file format are identical to original. Supports backup by 
date, multiple backup copies, large files (up to 32MB) 
Far superior to DOS BACKUP, easier to use, and much 
. more reliable . Absolutely a MUST for hard disk users 


HIP-POCKET HELPERS 


— 0 

The ALPS Hip-Pocket Helpers is a collection of 
powerful and easy to use utility programs. They 
include a slick Directory Tree, a sorted 5-across directory 
display, a sophisticated keyboard substitution aid (only 5K 
of RAM), utilities to search through ALL directories for 
file names or even strings within a file, and much, much 
more, 29 utilities in all. Call or write for info. Price 
and performance you can’t find elsewhere. 


ALL ALPS Software is Fully Guaranteed !!! 

Full Customer Support on our Hotline - 303-687-1442 
Call or Write for our complete catalog of products. 


ALPS 

1502 County Road 25 
Woodland Park, Colorado 80866 
800-232-ALPS (Toll-Free) 
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Software 


Business Decisions 
Helps Take Care 
of Business 

A series of six software programs 
called Business Decisions have been 
packaged for the Model 100 by Tandy 
for the business and finance world. The 
programs cover a variety of business 
decisions including inventory replenish¬ 
ment, sequential decision analysis, 
financial ratios, break-even analyses, 
linear programming and pricing tables. 

The software requires a Model 100 
with at least 24K of memory, a cassette 
recorder and an optional printer. The 
programs are supplied on cassette and 
written in BASIC so backups may be 
made. The program uses an arrow 
display to allow the output from all the 
programs to go to the printer or display. 

The first program is the inventory 
replenishment analysis. It allows one to 
model the company’s ideal inventory 
levels, reorder levels and frequency of 
reorders for maximum savings. To run 
you need the following information: 
annual unit demand, product unit price, 
single order cost, unit holding cost, 
shortage costs, capacity of storage and 
maximum inventory capacity. The out¬ 
put shows the optimum order, optimum 
inventory, price per unit, holding cost, 
ordering frequency and limited capacity 
cost. This is a thoroughly thought out 
way of presenting all the information. 

The sequential decision tree analysis 
is a “what if’ tree of events. If one thing 
happens, what is the end result? It really 
evaluates the probabilities involved in 
risk taking. An example of decision tree 
analysis would entail a scene as such: A 
factory decides to build a new ap¬ 
pliance. It will cost a certain amount to 
tool up, a certain amount to advertise, 
a certain amount to get rid of the 
material if it doesn’t sell. The probabil¬ 
ity of it selling at a price is some percent, 
the probability of another manufac¬ 
turer making it cheaper or better is a 
certain probability, along with the 
probability of the weather. All these 
items comprise a sequential tree. This 
program determines the overall success 
of each determinant and the project. 

The third program determines the 
financial ratios such as liquidity, lever¬ 
age, management and profitability. The 
liquidity ratio shows the company’s 
ability to pay its short term obligations. 

It is based upon the current assets and 


liabilities and inventory. The manage¬ 
ment ratios give information about the 
inventory turnover, average collection 
time, fixed asset turnover and total asset 
turnover. The program also calculates 
the net profit margin and return on 
assets after tax profits ratios. 

The break-even analysis uses the 
fixed costs, variable costs, unit price, 
maximum production and projected 
sales volumes to determine the break¬ 
even point. 

The most complicated program is the 
linear programming. You have the 
opportunity to enter production limits, 
labor costs and labor volume for many 
different items, i.e., brands of colas. 
Each brand will have certain constraints 
and this software wades through the 
muddle and gives a mathematical equa¬ 
tion that is evaluated by the computer 
to determine, for instance, how much of 
each cola should be produced to give the 
maximum plant operating efficiency. 

The last program is the pricing table. 
If you have several items to sell and each 
has a verifiable cost, then it will calcu¬ 
late the selling price and possible dis¬ 
count prices if you can give quantity 
discount. It optimizes the price based 
upon selling volume and cost. 

The manual accompanying the pro¬ 
grams is excellent in the true Tandy 
fashion. The programs are explained 
along with what data is necessary, and 
examples with printouts of actual data 
are given. The formulas used in the 
programs are given in a separate chap¬ 
ter. All the information you need to be 
up and running is included. 

If your business needs require soft¬ 
ware included in this selection, I recom¬ 
mend you take a closer look at this latest 
offering from Tandy. 

(Tandy Corp., Fort Worth, TX 76102 
$39.95) 

— Vincent Lord 
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Take a Different 
‘Approach’ with Solo 
Flight 

From this pilot’s viewpoint, the most 
exciting thing about Solo Flight is the 
letter from Bill Stealey, Micro Prose 
Software President, which is printed in 
the operation manual that comes with 
the software. The letter is written with 
the enthusiasm that pilots feel when 
they talk about flying. After the build- 
up, “most fun, most like flying, most 


PCM 



Back Issue 
Availability 

Back copies of many issues 
of PCM are still available. 

All back issues sell for the 
single issue cover price. In 
addition, there is a $2 charge 
for the first issue plus 50 
cents for each additional 
issue shipped in the U.S. 
When possible, issues are 
shipped UPS. The postage 
cost in Canada and Mexico 
is $3 for the first issue and 
$1 for each additional issue. 

VISA, MasterCard and 
American Express accepted. 
Kentucky residents please 
add 5 percent state sales tax. 
We do not bill and no COD 
orders accepted. 

We suggest you order 
back issues you want now 
while supplies last. 

To order, just fill out the 
form on the next page and 
mail it with your payment 
to: 


PCM 

The Falsoft Building 
Prospect, KY 40059 
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□ Please send me the following back 
issues: 

(Payment must accompany back issue 


orders.) 








VOLUME 1 



NO. MO. 

YR. 


PRICE 


1 

JULY 

’83 

PREMIER ISSUE 

$3.00 

□ 

2 

AUG. 

83 


$3.00 

□ 

3 

SEPT. 

’83 


$3.00 

□ 

4 

OCT. 

'83 


$3.00 

□ 

5 

NOV. 

'83 


$3.00 

□ 

6 

DEC. 

’83 


$3.00 

□ 

7 

JAN. 

’84 


$3.00 

□ 

8 

FEB. 

84 


$3.00 

□ 

9 

MAR. 

’84 


$3.00 

□ 

10 

APR. 

'84 

LIMITED 

$3.00 

□ 

12 

JUNE 

'84 

* 

$3.00 

□ 




VOLUME 2 



2 

AUG. 

'84 


$3.00 

□ 

3 

SEPT. 

’84 


$3.00 

□ 

6 

DEC. 

’84 


$3.00 

□ 

7 

JAN. 

'85 

** 

$3.00 

□ 

8 

FEB. 

’85 

*** 

$3.00 

□ 

9 

MAR. 

'85 


$3.00 

□ 

10 

APR. 

’85 


$3.00 

□ 

11 

MAY 

’85 


$3.00 

□ 

12 

JUNE 

’85 

VOLUME 3 

$3.00 

□ 

1 

JULY 

’85 


$3.00 

□ 

2 

AUG. 

'85 


$3.00 

□ 

4 

OCT. 

’85 


$3.00 

□ 

5 

NOV. 

’85 


$3.00 

□ 

6 

DEC. 

’85 

•*** 

$3.00 

□ 

7 

JAN. 

’86 


$3.00 

□ 

8 

FEB. 

’86 


$3.00 

□ 

9 

MAR. 

'86 


$3.00 

□ 

10 

APR. 

’86 


$3.00 

□ 

11 

MAY 

’86 


$3.00 

□ 

12 

JUNE 

'86 

VOLUME 4 

$3.00 

□ 

1 

JULY 

’86 


$3.00 

□ 


* Tandy 2000 coverage begins 

* Tandy 200 coverage begins 




• Tandy 1000 coverage begins 

* Tandy 600/3000 coverage begins 




TOTAL 

KY RESIDENTS ADD 5% 

SHIPPING & HANDLING 

TOTAL AMOUNT 
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tested by real pilots,” Solo Flight was 
a real let down. But, don’t despair, 
flying buffs, this review has a happy 
ending. 

It started off like my kind of program: 
except for the fact that the manual does 
not include instructions specifically for 
the Tandy 1000, it appeared to be 
adequate and easy to follow. The pro¬ 
gram booted up with no special instal¬ 
lation steps. Choices to be made were 
menu driven and logical. Then the 
disappointments began. I reluctantly 
adjusted to the lack of numbers on the 
instruments, but never did get used to 
north on the compass looking like an 
‘H’ instead of an ‘N\ 

The fact that 1 had to go from 20- 
degree flaps to 40-degree flaps in order 
to get to 0-degrees bothered me. The 
VOR indications left much to be de¬ 
sired. The joystick response was incred¬ 
ibly slow. But it was the fixed horizon 
that robbed any chance at reality. 


you will have an instructor on board. 
Commands are written on the screen, or 
you can get rid of the instructor by 
simply typing I. The instructor feature 
is a good way to learn to fly your 
simulator airplane. 

Pilots should have no trouble under¬ 
standing the manual. I’m afraid anyone 
who does not have the knowledge of 
real flying will experience some diffi¬ 
culty with it. Also, in the program itself, 
the indications on the compass are ‘N’, 
‘S’, ‘E’ and ‘W’. The on-board instructor 
gives the command to turn to 270- 
degrees. Assuming everyone knows the 
cardinal directions of the compass is 
taking a lot for granted. The manual 
and the instructor’s commands are in a 
pilot’s language, but the program is not 
what I would call a real pilot’s program. 

After flying around in a state the 
program goes to a map of that state and 
shows where you’ve been by plotting the 
path you have flown. I like this feature 


“If you are a certified pilot looking for a realistic 
flight simulator to play with on rainy days, this is 
not for you.” 


If you are a certified pilot looking for 
a realistic flight simulator to play with 
on rainy days, this is not for you. You 
get about as much of the “feel” of flying 
as you would watching a plane fly 
overhead. That’s largely because of the 
fixed horizon. When you are really in 
the pilot’s seat and those wheels leave 
the ground, that horizon begins to teeter 
back and forth. You turn left, it tilts 
right. You put the plane into a steep 
climb and the horizon disappears below 
you. 

In Solo Flight, you watch the plane 
you are controlling much as you would 
a remote-controlled plane. And in that 
comparison comes some complimen¬ 
tary evaluation. Forget that the publish¬ 
ers said anything about realism or the 
feel of flight and Solo Flight can be a 
fun flying game. 

After choosing Flying Practice, you 
get a choice of flying in six different 
states with varying difficulties in terrain 
and weather — Kansas being one of the 
easier states, and Colorado, one of the 
more difficult. Then you must choose 
the condition you want: clear weather, 
landing, windy, IFR or night. If you 
choose clear weather flying in Kansas, 


very much. There is a map for each state 

printed in the manual to assist you in 
planning a trip. Each state has two 
VORs (navigational aids) to help you 
get where you want to go. Airports are 
easy to spot; making an acceptable 
approach is a little more difficult. The 
landing practice option gives you the 
opportunity to perfect your approaches 
and touchdowns. In my opinion, a real 
plane is considerably easier to land. 

The other choice in the program is 
Flying Mail. Here’s where you can 
really have some fun and use the skills 
you’ve developed in Flying Practice. 
After choosing the state and one of four 
levels of difficulty, you load the mail 
and fuel. Points are scored based on the 
state you choose, time it takes to fly the 
route, the level of difficulty chosen and 
your skill in landing. Time between 
airports is shortened and this is a plus 
factor in making this game interesting. 
The game is challenging and fun, and as 
your skills improve, you can make it 
more challenging. 

Here again, however, is where the 
manual leaves something to be desired. 
In giving instructions for loading the 
mail and fuel, it reads “You may load 
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up as much mail as you like. However, 
each bag adds to the weight of your 
plane and increases the difficulty of 
flying. One or two bags is recom¬ 
mended.” It goes on to say, “Now 
choose the amount of fuel you want to 
carry. Remember fuel adds weight. The 
more weight the more sluggishly the 
aircraft responds. On a hot day, at high 
altitudes, in Colorado you may not be 
able to get off the ground!” 

While a real pilot understands the 
importance of weight and balance, 1 
doubt if a novice would understand the 
implications of these instructions. If the 
player takes time to consult the “Spec¬ 
ifications and Performance” chart, he’ll 
find his fuel capacity is 24 gallons, but 
the mail game allows him to load 64 
gallons of fuel. This is somewhat con¬ 
fusing. There is no mention of long- 
range tanks or a different aircraft for the 
mail game. 

With 64 gallons of fuel and six mail 
bags, I was about double the maximum 
gross weight of the aircraft. While 
unable to lift off at Aspen, Colorado, I 
did make a successful takeoff at Wi- 


“As your skills 
improve, you can 
choose greater levels 
of difficulty in several 
ways. It should take 
a long time to really 
become a master at 
this game.” 


chita, Kansas using 20-degree flaps. I 
climbed through the 10,000 feet over¬ 
cast, and experienced no real problem 
until I began an extended, 75-degree 
power climb that caused my engine to 
overheat. I came back down through 
the overcast, located an airport at 
Lyons, Kansas, and made my approach 
to land. 

In spite of the inconsistencies in the 
manual and the game, I like the Flying 
Mail feature very much. A rewritten 
manual with more detail and a better 
explanation of some of the features of 
the program would be a great improve¬ 
ment. The thing that bothers me most 
about Solo Flight is the promotional 
material, which makes such a point of 
calling the Simulation realistic. The 
manual is written with an obvious 


knowledge of flying and is realistic in 
what it says, but the program itself lacks 
that realism. 

Solo Flight would have scored much 
higher with me if its publishers had 
allowed it to stand on its own. It is fun 
and challenging; if you are a flying buff, 
it’s a program you’d have a hard time 
becoming bored with. As your skills 
improve, you can choose greater levels 
of difficulty in several ways. It should 
take a long time to really become a 
master at this game. At $34.95 I would 
consider it a pretty good buy. 


(Micro Prose Simulation Software, 120 
Lakefront Drive, Hunt Valley, MD 21030, 
301-667-1151, $34.95) 



— Irma S. Canfield 
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Shorthand Goes 
High-Tech with 
Productivity Plus 

Although there is some indication 
programs that perform somewhat sim¬ 
ilar tasks may appear on the market 
soon, Productivity Plus has the advan¬ 
tage of being here first. Besides, since it 
is a superior program it stands to hold 
its own with any competition, if not to 
beat it out altogether. 

Boiling it down to the simplest terms, 
PRD+ (as its creators call it) is an easy- 
to-use, menu-driven program that ena¬ 
bles you to use alphabetical shorthand 
on the computer keyboard. You can use 
the basic word list provided with the 
program, add to the list or create per¬ 
sonalized short form/long form word 
lists that, when invoked, automatically 
bring to the screen almost any intended 
long form you may choose to create. 
The personalized lists can be temporary 
or permanent, they may be created 
while in the midst of writing text, or 
separately from a list creation provision 
in the program that is easily invoked as 
part of the main menu. 

It works like this: Suppose there is a 
phrase you use often, such as “for your 
information.” This phrase is one of 
those included in the basic list of short 
form/long form combinations. The 
letters “fyi” constitute its short form. 
Suppose you are writing a letter in 
which you wish to say, “The enclosed 
press kit is for your information.” Using 


PRD+, all you need to type is “The 
enclosed press kit is fyi.” To shorten 
things further, you could arrange it so 
all you have to type is “thpc z fyi”; 
“thpc” standing for “The enclosed press 
kit” and ‘z’ for “is.” If you sent out press 
kits frequently, the saving in keystrokes 
is obvious. 

Pressing the period, or any other 
delimiter for that matter, causes each of 
the long forms of “thpc z” and “fyi” to 
print out on the screen at the touch of 
a single key. Therein lies the principle 
advantage of PRD+. Once loaded, it 
resides in RAM. When it is toggled on, 
any delimiter causes any long form that 
is on a word list to print out on the 
screen. Word lists may be used by 
themselves or merged with other word 
lists that are added to the program disk 
according your personal needs. 

The lists that come with the basic 
program contain a substantial number 
of commonly used words and phrases. 
One of the handiest parts is the com¬ 
plete list of codes for all 50 states. To 
print out the full name of any state when 
writing an address, just type the two- 
letter postal abbreviation in lowercase, 
press the delimiter you require and the 
name of the state prints out properly 
capitalized. A number of major cities 
are also on the list. 

The on-screen tutorial is excellent 
and the manual is not only unique but 
one of the best I have seen in terms of 
clarity, simplicity and ease of under¬ 
standing. It is a ring-bound steno pad 
in size and shape, but it has a folding 
base that allows you to stand it up 
alongside your monitor — a big help 
when familiarizing yourself with its 
details and even more so when you want 
to have the word lists handy for refer¬ 
ence while you work. There is also 
ample space on every page to make your 
own notes. 

PRD+ was designed for the busy user 
who wishes to save time and does not 
want to be bothered with a lengthy 
learning process. Installation is simple 
and the program can be customized for 
most popular word processors. It can be 
used with dBASE, Lotus and virtually 
any database program or spreadsheet; 
it can be used to store complex mathe¬ 
matical formulae as well as text. The 
latest Version 1.11 includes a macro 
storage feature. Short forms can be as 
short as a single character (though this 
is not recommended) and long forms up 
to 240 characters. When you can store 
a frequently used phone number or 
address, for example, and call it up by 


July 1986 


PCM 113 












typing three characters and a space, you 
wonder how you ever did without such 
a timesaver. 

On the subject of timesaving, there is 
also a feature that enables you to check 
on yourself and see how many key¬ 
strokes you have saved in the creation 
of any given document. 

PRD+ is not copy-protected, it takes 
up only 64K of RAM and requires MS- 
DOS 2.0 or better on any IBM PC, XT/ 
AT and compatibles. Interestingly 
enough, when we tested PRD+ we 
found that on the Tandy 1000 it causes 
the keyboard to be slightly redefined: 
the cursor keys assume the positions 
they normally occupy on IBM-type 
keyboards, the k 2\ ‘4’, ‘6’ and ‘8’ keys 
respectively. The ‘7’ key on the numeric 
keypad becomes the HOME key and, 
when unshifted, the PRINT key becomes 
an asterisk. The left cursor becomes a 
backslash, the right cursor a plus sign, 
the up cursor an inverted apostrophe, 
the down cursor a dash, and zero on the 
numeric keypad, INSERT. Though it 
sounds confusing at first, one user who 
tested the program said it was essen¬ 
tially the same as using a program like 
Prokey or Superkey , and that the ad¬ 


vantages of PRD+ more than outweigh 
the minor matter of getting accustomed 
to the slight keyboard redefinition. 

More over, in some instances, it 
proves to be a decided advantage. The 
word processor, Office Writer , an excel¬ 
lent Wang emulator, cannot be used on 
the Tandy 1000 because it requires the 
4 +’ key at the right side of the numeric 
keypad to be used to enter commands. 
When redefined by PRD+ , the former 
right cursor key becomes a *+’, allowing 
Officer Writer to be run. With the 
database InfoScope , the same key be¬ 
comes a power key that speeds up 
cursor movements under certain desired 
circumstances, another advantage. 

In short. Productivity Plus is a supe¬ 
rior piece of software on all counts. It 
does precisely what it is supposed to do; 
it is easy to learn. Even the most inex¬ 
perienced user can learn it in about 30 
minutes. It is a secretary’s dream, 
especially those who are familiar with 
alphabetical shorthand such as speed¬ 
writing and stenoscript. It is ideal for 
the office that uses PCs. Organizations 
using specialized terminology will find 
PRD+ a boon, especially in this age 
when even the most educated computer 


users often spell badly. Once a fre¬ 
quently misspelled word is given a 
simple short form and saved on a word 
list, it will never be misspelled again. 
That in itself can be worth the price of 
admission. 

(Productivity Software International, Inc., 
1220 Broadway, New York, NY 10001, 212- 
967-0947, $195) 

— Bernhardt J. Hurwood 
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Word Finder. The 
Thesaurus Goes 
High-Tech 

You’re pounding away at your word 
processor and suddenly something 
doesn’t seem right. In the middle of the 
sentence you just typed is a word, and 
it isn’t the word you really want to use. 
The “right” word is on the tip of your 
tongue. What now? Off of the bookshelf 
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comes the thesaurus. 

Now wait a minute. Don’t you feel a 
little inefficient? If this was a typewriter 
it might be different. But this is a high- 
powered word processor. Reaching to 
the bookshelf is like reaching back to 
the century of Gutenberg, a little like 
grabbing a slide rule in the middle of 
your spreadsheet session. There’s got to 
be a better way! 

With Word Finder from Writing 
Consultants there is! Billed as a syn¬ 
onym finder, this computerized thesau¬ 
rus is memory resident. Simply place 


the cursor anywhere on the offending 

word and press the command key. The 
Word Finder window appears display¬ 
ing the word followed by a list of 
synonyms. If the “right” word is one of 
those displayed, simply move the cursor 
in the window to that word, press 
RETURN and you are returned to your 
word processor with the new word in 
place. 

Word Finder (Version 3.2) lists “PC 
compatible” as the only hardware re¬ 
quirement. On a dual floppy system, 
users are advised to create a disk for 
Drive A with the essential files from, 
their word processor, together with the 
two essential Word Finder files (the 
executable file and the synonym file). In 

[ Drive B goes a disk with their text files. 

| The synonym file in this case includes 
90,000 synonyms. 

For the hard disk system user, the 
program includes an expanded syn¬ 
onym file on a second diskette with over 
220,000 synonyms. These files are not 
copy protected, allowing location any¬ 
where on the hard disk. The full power, 
speed and convenience of Word Finder 
is achieved with a hard disk system. The 
documentation lists 23 of the most 
popular word processors as being com¬ 
patible with Word Finder , with a sug¬ 
gestion to try installation with others 
not listed. Prospective purchasers 
should probably contact Writing Con¬ 
sultants regarding compatibility. The 


program performed flawlessly on a 
Tandy 1200HD running WordStar. 

My only (minor) criticism of Word 
Finder concerns the documentation. 
The package I received included a 
documentation booklet from a previous 
version, together with a separate update 
booklet including revisions keyed to the 
original. Hopefully, the changes will 
soon be incorporated into revised doc¬ 
umentation. In spite of this, the docu¬ 
mentation led me easily through the 
installation procedure, which modifies 


the particular word processor. 

Word Finder must be loaded prior to 
the word processor. Typing WF loads the 
program into memory and returns to 
DOS. The word processor can then be 
loaded, leaving Word Finder resident. 
A simple batch file can be created to 
simplify this process. Once into the 
word processor, the operation of Word 
Finder is very easy, eliminating the need 
to refer to documentation. 

Word Finder is invisible until sum¬ 
moned. The window that appears upon 
using the command key leaves your text 
visible on the screen with the target 
word highlighted. In the case of Word¬ 
Star , the window takes the place of the 
menu at the top of the screen. This 
feature allows you to view the word in 
context while deciding on a synonym. 

Synonyms are presented by part of 
speech (n=noun, v=verb, etc.). When a 
word has more than one meaning, 
synonyms for each meaning are 
grouped together. The different mean¬ 
ing groups are separated by semicolons. 
Long lists of synonyms may require 
multiple windows, accessed with PgUp 
and PgDn. If just the right word is not 
among those listed, but one seems closer 
to the mark, place the cursor on that 
word and press the command key for a 
list of its synomyms. This is a different 
list from the first. This process can be 
repeated to home in on the desired 
concept and find the precise word. 


Replacement of a word leaves the 
original form of capitalization and 
punctuation intact. If you decide your 
original word really is best, simply press 
escape to leave it intact. When the 
window disappears, you are returned to 
your word processor exactly where you 
were before calling Word Finder. 

If the target word is not in the pro¬ 
gram’s dictionary, the window displays 
this message; The word was not 
found. Choose another word, to 
1 ook up. Included in the window are the 
30 words alphabetically closest to the 
target word. This feature may help you 
to zero in on that synonym. It also 
works well as a real-time spelling 
checker! Word Finder can be used 
without a word processor, if desired. 

I’ve always struggled when resorting 
to a thesaurus. It seems to take too long, 
and all too often I come away without 
a better word. Word Finder , by con¬ 
trast, is a breeze to use. The program 
provides easy access to an impressive 
number of alternative words (especially 
with the expanded synonym file avail¬ 
able to hard disk users), and should 
assist any writer. I highly recommend 
this program. 

(Writing Consultants, Techniplex Center, 
300 Main St., East Rochester, NY 14445, 
716-377-0130, $79.95) 

— Stanley Townsend 


Software_ 1000/1200/3000 


Pro Disk is Truly 
User Friendly 

With so many software companies 
carelessly bandying about the term 
“user friendly,” many users have come 
to fear any claim made about friendli¬ 
ness. The Harvey Invisible Software 
ProDisk package may restore our faith 
in the term. Here is a piece of software 
that is not only useful, but very user 
friendly. 

Harvey ProDisk is a memory resi¬ 
dent, windowed-menu system designed 
to make execution of programs simple 
and painless. Although the package 
comes with several other independent 
programs, the Menu system must be 
considered the heart of the ProDisk 
package. With ProDisk , the user can 
create menus that allow the execution 
of sophisticated command sequences or 


the executable file to be compatible with 


“WordFinder is invisible until summoned. The 
window that appears upon using the command key 
leaves your text visible on the screen with the target 
word highlighted.” 
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programs with a one- or two-stroke 
entry. 

When a menu (window) is on-screen, 
any application on the menu can be 
executed by entering the first letter of 
the selection, or by using the arrow keys 
to highlight the selection, then pressing 
ENTER. Even users thoroughly intimi¬ 
dated by the complex commands re¬ 
quired to operate under DOS should 
quickly find themselves at ease with 
Pro Disk. Password protection is of¬ 
fered for each menu to prevent unwel¬ 
come users from accessing private 
information. 

Creation and editing of the menus is 

“The program claims 
to be compatible with 
other off-the-shelf 
software. I found no 
problems operating it 
with GEM, Sidekick , 
Turbo Lightning or 
any other memory 
resident programs . . .” 


not difficult at all. Pressing the F5 key 
brings up the creation screen. Making 
a new menu is a three-step process. First 
give the menu a name, then enter each 
selection and follow it with the com¬ 
mands needed to execute that choice. 

To change a menu entry, the F6 key 
is pressed. A submenu pops up, offering 
to edit either the selection, the menu, 
color or password. Once the choice is 
made, the new information is entered 
and overlays the old. Press F8 and the 
new menu becomes permanent. 

Menus can be called from other 
menus, forward or backward. As an 
example, suppose you had a menu 
called Main, from which all major 
submenus originated. To call Main 
from one of the other menus, you would 
include in the other menu a selection for 
“Exit to Main Menu.” For the com¬ 
mand entry, you would type /M MAIN. 
Anytime the ‘E’ is pressed while in this 
submenu, the user would be returned to 
Main menu. 

The program claims to be compatible 
with other off-the-shelf software. 1 
found no problems operating it with 
GEM, Sidekick, Turbo Lightning or 
any other memory resident programs 
and 1 see no reason to doubt compat¬ 


ibility with other programs. 

A package of secondary utilities 
comes with ProDisk. These programs, 
HTime, HView, HPrompt and GF 
(Graphics Filter) are all well-written 
and perform useful tasks. 

HTime provides a unique view of a 
wristwatch on the screen with a current 
month calendar highlighting the current 
date. Other time/date related functions 
can be accessed as well, including such 
things as calculating the time between 
two dates. 

HView is a replacement for the DOS 
commands TYPE, PAUSE and MORE 
(filter). You may HView a file one page 
or one line at a time, paging backwards 
and forwards as you wish. 

The HPrompt is an alternative to the 
standard A> or C> prompt. It includes 
a rectangular box at the top of the 
screen with a full-width command line 
and the current directory. Once in¬ 
voked, it replaces the standard prompt 
whether or not the ProDisk program is 
loaded. 

GF converts graphics characters to 


Software 1000/1200/.3000 


Software Review . . . 

AI'.Typist — An 
Easy-to-Use Word 
Processor 

I’ve always liked programs that can 
be used right out of the box. The 
thought of wading through page after 
page of a manual and having to learn 
a lot of new commands and procedures 
has often given me second thoughts 
about purchasing new programs. AI- 
: Typist requires no previous experience 
to use, just spend a few minutes reading 
the introductory chapter and you’re 
ready to process words! I started using 
the program immediately and my 12- 
year-old daughter was able to type a 
paper for school with less than 10 
minutes of program orientation. 

The non-copy-protected program 
requires 256K RAM and DOS 2.x or 
higher. Features include; help screens, 
search and replace, cut and paste, 
document formatting, multiple printer 
support, advanced WordStar- like com¬ 
mands (just in case you don’t like the 
simple and effective menus), ASCI1- 
and Typi'-st-formatted file operations, 
and a lightning fast, memory resident 
spelling checker. 


the character given as their parameter. 

Do I have anything negative at all to 
say about the package? Perhaps one 
minor thing. The documentation is two 
standard size, quick-reference sheets 
plus an on-disk tutor that can be printed 
out. The formatting is fine for on-screen 
help but is not, in my opinion, right for 
printing out. Perhaps a separate file for 
printing out, or preprinted documenta¬ 
tion would be better. Fortunately, the 
on-screen help and ease of program use 
make this a minor problem at most. 

If you are a hard disk user, and 
particularly if your business allows 
access by non-computer oriented peo¬ 
ple or you have private information to 
be made available only to certain indi¬ 
viduals, this program has a lot to offer. 
Overall, I heartily recommend it to 
readers of PCM and fellow Tandy MS- 
DOS users. 

(Harvey Invisible Software, P.O. Box 1863, 
Cape Coral, FL 33910, 800-231-0296, $90) 

— Leonard Hyre 


The main screen is the heart of the 
program, the top of the screen displays 
the document page, line, word count, 
column, percentage of 64K. the docu¬ 
ment uses, the document name and 
insert or overwrite status. At the bottom 
of the screen there is a block display of 
menu functions for function keys FI 
through F8, and flags to indicate the 
status of the NUM LOCK and CAPS keys, 
and the automatic paragraph format 
status. 

Key designations are straightfor¬ 
ward; INSERT, DELETE, the arrow keys, 
HOME, NUM LOCK, CAPS, and BACK 
SPACE all work just like I expect them 
to. All special functions are activated 
with the touch of one of the accurately- 
labeled function keys. Fl is always the 
“help” key and produces on-line help 
screens from anywhere in the program. 

F9 deletes a line and Flo inserts a line. 

F2 controls the “get/save” file func¬ 
tions and will insert a document at the 
cursor position or retrieve a file for 
editing. Files can be saved in ALTypist | 
format or ASCII format. F3 triggers the 
search and replace functions; words or 
phrases can be searched out and re¬ 
placed throughout the document. Cut 
and paste functions are controlled by 
F4; any block of text can be marked, 
removed, or moved to a new location. 
The features controlled by F5 allow 
rapid formatting of the document; 
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margins and tabs can be set, automatic 
paragraph adjustment can be toggled 
on and off, lines can be centered, areas 
can be marked for bold or underline 
printing and entire blocks can be refor¬ 
matted. 

The document printing menu (F6), 
supports 18 standard printers and two 
custom printers. The entire document 
can be printed or printing can be se¬ 
lected for one page at a time. There is 
a provision for double-spaced printing, 
selection of alternate printer ports and 
special characters embedded in the text. 

The spelling checker is activated or 
deactivated with F7. The warning beep 
can be turned off or on and the alternate 
dictionary is maintained using the “Add 
to Die” and “Delete From Die” func¬ 
tions (the main dictionary cannot be 
altered). There are provisions to spell 
check entire documents (any ASCII 
document can be checked) or simply 
find the next misspelling in the current 
document. The spell checker does not 
offer suggested spellings or automatic 
correction, it simply flags words that are 
not in the dictionaries. 

The documentation that comes with 
AI .Typist consists of a complete, accu¬ 
rate and easy to read manual with a 
compact quick reference card. Al¬ 
though well-done, the documentation is 
really redundant in light of the pro¬ 
gram’s user-friendly construction and 
design. Fast and friendly customer 
service is available by calling (503) 246- 
1782. 

AI: Typist is not a replacement for the 
super-powered, high priced word pro¬ 
cessing programs. It does not support 
microjustification, automatic page 
numbering, on-screen page breaks, 
right justification, mail merging, varia¬ 
bles, or a fancy thesaurus. Only two 
special printer functions can be used at 
one time and documents are limited to 
64K (20-30 pages). 

A f. Typist is ideal for typing letters, 
memos, school reports, proposals and 
almost any short- to medium-length 
document with spell checking that 
occurs as fast as you can type. There are 
no fancy commands to memorize or 
complex procedures to learn, and little 
or no computer expertise is required. 
For anyone interested in word process¬ 
ing at a reasonable price, A l: Typist is 
an excellent choice. 

(Airus, Inc., 10200 S.W. Nimbus Ave., Suite 
G-5, Portland, OR 97223, $99.95, 503-246- 
1782) 

— Bob Mills 
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Popcorn Desktop — 
Useful and 
Affordable 

Popcorn Writer is a small, fast word 
processor that uses codes familiar to 
anyone who has ever used WordStar. In 
my opinion this gives it three distinct 
uses. 

The beginner who needs a word 
processor, but can’t afford $300 and up 
for a full-featured product, will be 
grateful for having learned Writer when 
he needs to use an advanced text editor 
because most of the WordStar com¬ 
mands will already be familiar. 

The person who uses WordStar at 
work can afford this home editor and 
won’t have to learn new commands. 

Third, I would recommend this to 
many small businesses because of a nice 


added feature. Writer comes with an 
easy-to-use Mail List Merge feature for 
producing mailings. 

Writer has one feature missing on 
WordStar , a good Undelete command, 
but performs most other functions of 
advanced word processors. There is also 
a nice on-disk tutorial that introduces 
the beginner to this kind of word pro¬ 
cessor. 

The Popcorn Misspeller s Dictionary 
is just that, a dictionary, not a spelling 
checker. 

Misspeller lets you produce your own 
dictionaries and, since it is RAM resi¬ 
dent, it is available anytime the compu¬ 
ter is on. 

There are two sizes of dictionaries 
supplied in Misspeller that you can add 
to, or your word list can be completely 
separate. 

Why a dictionary when you can buy 
spelling checkers? First, you won’t get 
a good spelling checker for this price 
and, second, you may only occasionally 
need to check the spelling of a word. By 
using a dictionary when needed instead 
of a checking program on every word 
you will save a lot of time. 


Popcorn Desktop is also RAM res¬ 
ident and contains a pocket-type Calcu¬ 
lator, an ASCII table, a Calendar (for 
viewing only), on-screen help and a 
Notepad. 

Interestingly, you can install all of 
these desktop functions at once, or 
either Notepad or Calculator alone, if 
you are short on space. 

Notepad is the interesting program. It 
uses WordStar-type commands and has 
lots of useful features; you can call up 
a directory of any disk drive. This 
program has all the usual editor fea¬ 
tures: Word Wrap, Saving, Printer 
Control Codes, Block Operations, 
Search and even Undelete, very similar 
to Popcorn Writer. 

It also has one terrific feature. Note¬ 
pad lets you block out any rectangle on 
the screen and import the information 
into Notepad. This means you can have 
a directory, help file or anything else 
shown on the screen available no matter 
what program is running. For anyone 
who fools around with BflT files, or 
otherwise jumps from program to pro¬ 


gram (like reviewers), this feature is 
great. This was a very easy review to 
write because I could refer to the oper¬ 
ating program while writing. 

The programs in Desktop and Mis¬ 
speller's Dictionary can all be layered 
on the screen at once, and the windows 
they occupy can be moved around (the 
program remembers where and returns 
to the new position the next time). 

You can move some screen data into 
Notepad, then write a note, check the 
spelling with Dictionary , look at the 
Calendar and then do some calcula¬ 
tions, with all programs onscreen at the 
same time. Each ESC key removes 
another window until you are back in 
MS-DOS. 

All these programs come “prein¬ 
stalled,” that is, you just load them and 
execute on many machines, but you can 
also custom-install the programs if you 
want to (or need to). They all require an 
MS-DOS computer with 128K of mem¬ 
ory, they support color or monochrome 
monitors, floppy or hard disks, and are 
not copy-protected. 

All three products come with short, 
clear documentation that will have 


“The programs in Desktop and Misspelled 
Dictionary can all be layered on the screen at once, 
and the windows they occupy can be moved 
around.” 
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anyone using the software in minutes. 

These programs share one peculiarity 
— after invoking one of them and 
returning to MS-DOS, the next two 
keystrokes are ignored. This is due to 
the way Notepad captures data from the 
screen, and never posed a real problem 
to me once I discovered it was happen¬ 
ing. However, this doesn’t happen when 
typing in the word processor. 

(Popcorn Software, P.O. Box 814, Tor¬ 
rance, CA 90508, Writer $69.96, Misspelled 
Dictionary $29.95, Desktop $49.95) 

— John McCormick 


1000/1200 


Learning BASIC For 
The Tandy 1000/ 
2000 — An Excellent 
Choice 

For those of us who have other Tandy 
computers, David Lien is a familiar 


name. He has written books and hand¬ 
books for the Model I, Model III, 
Model 4/4P and the Model 100. Now 
Tandy has enlisted his considerable 
talents to teach Tandy 1000/2000 BASIC 
to another group of computer owners. 

I think that Tandy has made an 
excellent choice. While Learning Basic 
For The Tandy 1000/2000 is designed 
and written for the beginning beginner, 
the writing style and presentation 
should hold the attention of even expe¬ 
rienced programmers. I have written a 
number of BASIC programs, but there 
were several times when I said to myself, 
“I didn’t know that.” 

When I say written for beginners, this 
book even tells you where the power 
switch is located for both models. It 
instructs the reader on entering time 
and date as requested by DOS at boot¬ 
up. This description includes telling the 
reader where on the keyboard to find 
the colon (:). Following that is a dia¬ 
gram of a floppy disk and a description 
of how to format the disk for use. 

In any book of this type, the layout 
is crucial to following the material. The 
text is in black ink and regular type. The 
lines to be typed in by the reader and 


the responses from the computer are 
printed in blue. This technique makes it 
much easier to figure out what you are 
supposed to type and how you should 
expect the computer to respond. Keys 
to be pressed (ENTER, CTRL, etc.) are 
printed in reverse blocks of white letters 
on black. Scattered throughout the text 
between solid horizontal lines are hints, 
reminders, expanded explanations and 
a few jokes. These are almost like 
footnotes, but they are in the text rather 
than at the bottom of the page. Finally, 
full-page cartoons occur from time to 
time to keep things lighthearted. 

The flow of the book is logical and 
each new chapter and example program 
is built well on what comes before. FOR- 
NEXT loops are very important and their 
explanation is particularly good. I will 
admit, however, to yawning a little in 
the chapter on precision. I think it was 
slight overkill in a beginners text, but if 
you make it through all the material, 
you will understand single and double 
precision better than most pro¬ 
grammers. PRINT USING print format¬ 
ting was also covered in great detail, but 
the examples seemed more useful to me. 

Arrays and even sorting are covered 
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Suite 258 

Fullerton, California 92631 


EXPAND THE TANDY 2000® 
TO 


OF DOS ADDRESSABLE RAM 

Includes RAMdisk Software at No Extra Cost... 
Add 640K of External RAM Memory to TANDY 2000’s® 
256K of Internal RAM Memory for a total of 896K of DOS Ad¬ 
dressable RAM. 

★ ★New Products Available Soon^ ★ 

(Send for catalog) 

$495.00 for a 640K bytes of External 
cost: RAM Memory Board (Includes RAMdisk 

Software) 

Call about our Trade-in Exchange option 
if you already use Tandy’s 128K External 
Memory Board. 


for ordering (509) 627-5291 
and information call: Hours 9:00-5:00 PST 


We accept Check, MO, Visa, Mastercard 
terms: Add 7.3% sales tax in Wash. 

Add $3-shipping/hand!ing, $5 foreign. 

TANDY 2000 ‘ IS A TRADEMARK OF TANDY CORPORATION 
RAMdisk is a Random-Access-Memory based disk 
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clearly including multidimensional 
arrays. Sequential data file use is cov¬ 
ered adequately, but random file hand¬ 
ling is not mentioned at all. This is no 
surprise since the book promises only 
sequential files. I liked chapter 49, “A 
Study of Obscurities.” The explanation 
there of VflRPTR is the only one I have 
ever understood. Chapter 51 is on 
debugging programs and contains tech¬ 
niques that are an absolute necessity for 
a beginner. 

Enough already. If you have a Tandy 
1000 or Tandy 2000 and want to learn 
how to use the basic that comes with 
it, this book is the one to buy. I would 
give it five stars out of five for doing the 
job it is designed to do. 

(Author: David A. Lien. Published by 
Compusoft Publishing. Radio Shack cat¬ 
alog no. 25-1500) 

— Potter Orr 


Hardware 


A2D Joystick: 
Quality to Match the 
1000’s 


Computer sticks is that they are cheap, 
about $10 each. The disadvantages are 
that they break and bend. After a couple 
of good rounds they tend to develop an 
off-center wobble as the stalk bends 
where it is connected to the ball. These 
sticks also have only one button while 
certain applications require a two- 
button controller. They work, but a 
machine of the 1000’s quality deserves 
better. 

Answering the need for a more 
rugged and accurate joystick is Cinsoft, 
the distributor of the A2D Joystick. The 
control mechanism is not the traditional 
stick on a ball (bale stick assembly), but 
an open gimbal mechanism like those 
used to control radio-guided model 
aircraft. This mechanism is the standard 


for reliability and accuracy in R/C 
flying, therefore the control it offers for 
the joystick is excellent. Two switches 
on the bottom of the joystick give you 
the option of enabling or disabling 
either the horizontal or vertical spring- 
assisted centering. There are also two 
levers that allow adjusting of the zero 
centering point of both controls. The 
cord and connector are heavy duty and 
well-finished. 

For those times when business activ¬ 
ities get pushed onto the back burner, 
the A2D Joystick will put you in control 
of your recreational program. 

(Cinsoft, 2235 Losantiville, Cincinnati, OH 
45237, $29.95) 


— Bruce Rothermel 




Software 

1000/1200/2000/3000 


A Complete Family 
Health History 
with BDL Health 


All right, everyone knows the Tandy 
1000 is a business computer. After all, 
it is I-B-M (‘B’ as in Business) compat¬ 
ible and runs all those businessy pro¬ 
grams like WordStar , Lotus 1-2-3 and 
Harvard Total Project Manager, no¬ 
body pays a quarter to play these in an 
arcade. 

Well then, what are those two ports 
to the far right of the big red Reset 
button doing there? They are labeled 
“joystick.” It seems the designers of the 
1000 had more in mind than crunching 
numbers and processing words. It 
comes standard with color graphics (16 
colors no less), sound and the ability to 
control programs with a joystick. 

After an extended session of pushing 
numbers, it’s nice to be able to make 
friends again with the computer (mine 
is named Fred). After a few minutes of 
concentration on nonbusiness plea¬ 
sures, I’m almost human again. While 
most programs have provisions for 
keyboard control via the arrow keys, 
some games, especially flight simulator 
types, just work better with a joystick. 

Which brings us to the A2D Joystick. 
Before obtaining the A2D unit, I had 
“borrowed” the sticks from my Color 
Computer. The advantage of the Color 


BDL Health represents the consum¬ 
mate use of a home computer. It is a 
precursor of future computer use and is 
contained in a simple database. 

BDL Health keeps track of the im¬ 
portant facets of a family health pro¬ 
gram and requires only small and accu¬ 
rate input to do so. 

Bette Laswell, author of the program, 
says it was born out of necessity for her 
family. The Laswells have moved 
around the country and Ms. Laswell 
was frustrated by the lack of medical 
records that followed their migration. 
Material supplied by physicians was 
sometimes more sketchy than a new 
doctor would want. 

BDL Health works with 128K and 
one drive, but two drives or hard drive 
are very desirable. The program worked 
well on my 256K Tandy 1000. The 
menus and the instructions are very 
clear as is the documentation. 

Ms. Laswell displays a great sense of 
humor in her programming. For exam¬ 
ple, if the user fails to make a choice 
among eight courses of action in the 
opening menu, he is met by the terse on¬ 
screen comment, “Mercy, Maude! 
We’re just getting started and we’re 
already arguing. I only know numbers 
here, specifically 1 to 8. Try again 
please.” I found that much more com¬ 
forting than the usual error message. 
BDL Homeware’s goal is to create 


software that is self-starting and self- 
instructing. BDL Health meets both 
these requirements. You are prompted 
through the program in an easygoing 
way, which should bolster the confi¬ 
dence of the neophyte. 

There’s room for 9,999 records. The 
records are kept for individual members 
of the family. Categories of health 
activities include: office visits, hospital¬ 
izations, other health occurrences, 
medications, tests, surgery, treatments 
and complete medical history. Entries 
are stored in a logical manner for future 
use. There are valuable functions such 
as the logging of prescriptions and other 
medicines, and possible reactions you 
may have had. These can be flagged so 
they can be retrieved in a search for 
allergic responses. 

I was able to move among the various 
choices with ease. I found it easy to 
operate the program before reading all 
of the documentation. The documenta¬ 
tion is as well-written as the program, 
so don’t neglect it, but you really won’t 
need it. 

There is provision to produce a blank 
form to take with you to an office visit, 
so the needed data such as blood pres¬ 
sure, temperature and diagnosis can be 
written down. I wish I had such a record 
of past office visits! 

With the proper information, this 
program can be a valuable tool to help 
organize information about your fam¬ 
ily’s health, which can be of great value 
to you and your physician. 

(BDL Homeware, 2509 N. Campbell 
Avenue, #328, Tucson, AZ 85719, 602-577- 
1435, $39.95) 

— Howard Lee Ball 


July 1986 


PCM 


119 










































Software 


100/200 


C-Bug — A Good 
Debugger for the 
BASIC Programmer 

C-Bug is a programming aid that can 
be of great help in debugging or mod¬ 
ifying large BASIC programs. It is simple 
to use and does its job well. Normally 
when you are trying to debug a BASIC 
program, various PRINT statements 
have to be put in the program to see its 
progress. C-Bug lets you print out or 
display the contents of every variable 
with but a single CALL command. This 
is helpful because the COLL is easier to 
edit in than a PRINT statement with a 
long list of variables, and also because 
C-Bug's thoroughness in listing every 
variable in use may show one you have 
overlooked. 

The output of C-Bug, which lists the 
line number where called and the var¬ 
iable contents line by line, may be on 
paper or on the screen. 

C-Bug is shipped on a noncopy- 
protected cassette with a user’s guide. 
You start by running a simple BASIC 
program, BUGLDR, from tape; it leads 
you step by step through the process of 
loading the machine language program 
C-Bug into the Model 100. Queue 
Software provides the capability of 
relocating C-Bug to any desired region 
of memory, which allows it to coexist 
with other machine language programs. 

BUGLDR gets its input from a sec¬ 
ond tape file called BUGA5C.D0 and 
produces executable code in RAM (670 
bytes) as well as a CO file (C-BUG.CO, 
677 bytes), if desired. BUGLDR is fast 
— it uses machine language as well as 
BASIC to quickly perform the relocation 
and checksum calculation. It uses some 
1,500 bytes, but may be cleared from 
memory after RAN: C-BUG.CO has been 
created. 

The four pages of documentation are 
clear, straightforward and thorough. 
Examples are given that illustrate every 
possible aspect of C-Bug. 

1 have only a few minor complaints 
with the documentation. It wouldn t 
hurt if the manual were to add that C- 
Bug goes wild with dimensioned varia¬ 
bles, listing every possible element in the 
array. An array dimensioned as, say, 
DIM A(4,4,4) causes C-Bug to pour 
out 125 lines showing the values of all 
125 elements, from A(0,0,0) to 


A(4,4,4). This may make C-Bug un¬ 
usable for programs containing many 
arrays. Also, the BREAK key does not 
stop C-Bug during the 125-line print¬ 
out. 

Finally, where string variables have 
been used, the exact contents of the 
variable are sent unfiltered to the 
screen. Thus, if a string contains a 
CHR$(7) a beep is produced, while a 
CHR$ ( 12 ) homes the cursor. Control 
and escape codes could wreak havoc on 
a printer whenever C-Bug is invoked. 

No phone number is given in the 
manual, but a product as simple and 
straightforward as C-Bug, with its good 
documentation, does not really require 
telephone support. 

If you do a lot of BASIC program¬ 
ming, C-Bug will be a big help. It is a 
good buy at $19.95. 


(Queue Software Systems, 4528 Belleview, 
Suite 210, Kansas City, MO 64111, $19.95) 

— Carl Oppedahl 


continue to loop back to the idea). All 
the other choices are what their names 
suggest. There is a help file that provides 
a simple explanation and an example of 
each option. 

There is no way, within Proteus itself, 
to manipulate text. Proteus would be 
more beneficial if it had a few of the 
features of a basic word processor. You 
can, however, convert a Proteus session 
to an ASCII file for use with your own 
word processor. Then, instead of a file 
with text in uppercase, you have text in 
all lowercase, complete with typos, 
misspellings, outrageous punctuation 
and those initial awkward phrases. But 
you do have ideas, and they are saved 
on a disk. At this point, you are ready 
to begin writing. 

Proteus will interface with existing 
word processors sold by Tandy, includ¬ 
ing Desk Mate. 

(Research Design Associates Inc., P.O. Box 
848, Stony Brook, NY 11790,516-928-5700, 
$59.95. Radio Shack Express Order System 
catalog number 90-598) 
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1000/1200/3000 


— Millard Dunn 


Proteus — The Idea 
Processor 

Proteus, first of all, is not a word 
processor. It is a program that offers the 
latest techniques in pre-writing. In fact, 
it forces you to use them. You could 
achieve the same results with any word 
processor, a freshman process text on 
composition and a lot of self-discipline. 

Upon booting the program it invites 
you to name the current session, then 
gives you a main menu. Your writing 
choices are freewriting/ looping, listing, 
five W’s and cubing. From anywhere in 
the program you can use the up-arrow 
key to get to a “return to the main 
menu” prompt. Proteus is menu driven 
and easy to use once you get past the 
frustration of what it won’t let you do. 

Freewriting means just that write 
as fast as you can; do not worry about 
spelling and punctuation — just get 
everything down on paper. (Remember, 
this is pre-writing. The actual writing 
comes later, when you rewrite.) Proteus 
helps you by typing everything in cap¬ 
ital letters and by refusing to let you 
back up. 

The program seems to miss the point 
of looping (which is to write for several 
short periods about the same idea and 


Hardware 


Pro-Tech-Tor — 
Electrical Outlet 
with a Plus 

The Pro-Tech-Tor does just what its 
name implies. It’s an excellent guard 
against electrical damage to your valu¬ 
able electronic equipment. The outlet 
center, which has six grounded, 15-amp 
outlets, is equipped with a transient 
voltage surge supressor and a 125-volt, 
15-amp circuit breaker. 

The Pro-Tech-Tor has an LED 
grounded outlet indicator, and a lighted 
on / off switch that enables you to cut the 
power to your connected equipment 
without unplugging the suppressor or 
the equipment. 

The center is housed in a “computer 
beige” epoxy finished aluminum case, 
has a six-foot cord, plugs directly into 
any 120-volt grounded outlet and has a 
two-year warranty. 

(Northeast Peripherals, Inc., R.D. #1, Box 
44, Somerset, NJ 08873, 800-526-2396, 
$24.95) 

— Sue Rodgers 
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New Products 


The following products have recently been received 
by PCM, examined by our magazine staff and 
approved for the PCM Seal of Certification, your 
assurance that we have seen the product and have 
ascertained that it is what it purports to be. This 
month the Seal of Certification has been issued to: 


Ballyhoo, an interactive fiction 
game where you explore a circus 
lot while trying not to be caught 
by a lurking kidnapper. Includes 
program disk and circus para¬ 
phernalia. Requires Tandy 1000, 
1200 or 3000. Infocom, 125 Cam¬ 
bridge Park Drive, Cambridge, 
MA 02140, $39.95. 

The BASIC Handbook, Third 
Edition, encylopedia of the BASIC 
programming language by David 
A. Lein. Reference tool for con¬ 
verting between different dialects 
of BASIC. CompuSoft Publish¬ 
ing, 535 Broadway, Dept. 12, El 
Cajon, CA 92021-5463, $24.95. 

CPYAT2PC, a copy utility that 
allows you to copy onto double¬ 
density disks with a high-density 
disk drive. Requires Tandy 3000. 
Microbridge Computers Interna¬ 
tional Inc., 655 Skv Way, Suite 
125, San Carlos, CA 94070, 
(415)593-8777, $79. 

Digiware Graphics Utility, a gra¬ 
phics plotting utility designed for 
use with digitizers. Requires 
Tandy 1000, 1200 or 3000 and 
digitizer. Computer Mathware, 
P.O. Box 1327, Princeton, NJ 
80540, (609)924-6582, $300. 

DOS Helper, online reference 
system for MS-DOS. Requires 
Tandy 1000, 1200 or 3000. Aristo 
Software, 16811 El Camino Real, 
Suite 213, Houston, TX 77058, 
(713)480-6288, $35. 

Filebase, simplified database 
management tool. Requires 
Tandy 1000, 1200 or 3000. 
EWDP Software Inc., P.O. Box 
40283, Indianapolis, IN 46240, 
(317)872-8799, $125. 

Forecast!, helps teach the science 
of meterology. Given current 
meterogical data, it helps predict 
the weather. Requires Tandy 
1000, 1200 or 3000. CBS Soft¬ 
ware Inc., Greenwich, CT 06863, 


LapCoder, a text compression 
program for the Tandy 100 and 
200. Mu-Psi Computer Consult¬ 
ing, 1010 Turquoise Street, Suite 
250, San Diego, CA 92109, 
(619)488-2350. $27.95 plus $2 
S/H. 

LCdraw, a graphics editor for the 
Tandy 100. Requires Tandy 100 
and 24 K. Lone star Software and 
Integrated Circuit Design, 1611 
Palmetto Lane, Kingwood, TX 
77339, (800)835-2246, $49.95. 

Mapware Graphics Software, a 

program for creating profes¬ 
sional graphics presentations 
incorporating maps. Requires 
Tandy 1000, 1200 or 3000 and 
plotter. Computer Mathware, 
P.O. Box 1327, Princeton, NJ 
80540, (609)924-6582, $500. 

PC LOGO, LOGO programming 
language and tutorial. Requires 
Tandy 1000, 1200 or 3000. Har¬ 
vard Associates, 260 Beacon 
Street, Somerville, MA 02143, 
$149.95. 

Plans ’n Totals III, V, VIII, a 

program for financial planning 
and forecasting. Requires Tandy 
1000, 1200 or 3000. Resource N 
Corporation, 66 Commonwealth 
Avenue, Concord, MA 01742, 
(617)264-4450, III $195; V $395; 
VIII $695. 

Q-DOS, a hard disk files manage¬ 
ment utility. Requires Tandy 
1000, 1200 or 3000 and hard disk 
drive. Gazelle Systems, 230 N. 
2475 W., Provo, VT 84601, 
(810)377-1288, $29.95. 

The Recipe Writer, maintains 
thousands of recipes which can be 
cross-referenced into any chosen 
categories. Requires Tandy 1000, 
1200 or 3000. At-Your-Service 
Software Inc., 309 W97th Street, 
New York, NY 10025, (212)866- 
2186, $79. 


$49.95. 


By awarding a Sea/, the magazine certifies the 
program does exist, but this does not constitute any 
guarantee of satisfaction. As soon as possible, these 
hardware or software items will be forwarded to 
PCM’s reviewers for evaluation. 


SUPER SAVINGS 
on TANDY 1000 
UPGRADES 

Imrnlmimkm IIIHn ihiSIfikitBMMuMlMifMiMiMMlmfWii If? w Us I'f lil?I 



★ 640K Memory Upgrade Board 

with Real Time Clock_ Only $189.95 

★ Serial Interface Board . Only 49.95 

★ Parallel Interface Board _ Only 29.95 

★ Hayes Compatible 

300/1200 Baud 


Deluxe Modem Board .... Only 189.95 


ACCESSORIES 


Logitech Mouse - uses standard serial port _Only$ 99.95 


Logitech Mouse with PC Paint program .129.95 

Monitors-Zenith, CGS,Taxan 

Call for details . From 99.95 

Star SG- 10 printer.249.95 

Teac, Panasonic D.S.D.D. drives .119.95 

10 discs in an attractive styrene case.12.95 


Deluxe keyboard drawer 3W f high computer platform 
with sliding keyboard drawer. Ball bearing glides 
and locks. Enamel finish to match your PC .69.95 


IBM COMPATIBLE PCX 



IBM Compatibility at sensational prices!! 
Starting at only $685.00 


Complete, deluxe 640K system includes 150 watt power supply, 
2 Teac floppies, printer and serial port, 
clock, amber monitor and many other extras. 

$1080.00 

20 meg hard drive - $525.00 


We maintain a library of quality public domain software 
for purchasers of our computer systems — text processor, 
data base manager, spread sheet, communication, 
utilities and entertainment software. Call for details. 


MS-DOS SOFTWARE 


DAC ACCOUNTING - General ledger, receivables, 
payables, inventory. Unbelievable bargain at only .. $69.95 

MARK DATA - Our popular ledger system 
with detailed operating manual. Only $69.95 

DBASE III - Ashton Tate’s powerful database 
management system. $389.00 

The Twin - Works exactly like Lotus 1-2-3 
Outstanding value. $ 145.00 

VP Planner - Another great 

Lotus look-alike. Only $99.95 

CoCo Util II - A valuable utility program that allows you to 
transfer Tandy CoCo disc files to your MS-DOS machine. You 
may also transfer MS-DOS files to a Color Computer disc. Save 

countless hours of typing. New Version $39.95 

or upgrade from Version I $12.95 
including shipping. 



Mark Data Products 


24001 Alicia Parkway, #207 
Mission Viejo, CA 92691 (714) 768-1551 

SHIPPING: All orders under $100 please add $2 regular, $5 air. All orders over $100 please add 3% regular, 
8% air California residents please add 6% sales tax. Orders outside the continental U.S., check with us for 
shipping amount; please remit U.S. funds. Software authors — contact us forexciting program marketinq 
details. We accept MasterCard and VISA. Distributed in Canada by Kelly Software 
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Bar Code Listings 



Using BAREAD 2.1 




Bar code listings must be 
read in numerical order begin¬ 
ning with Line 1 and contin¬ 
uing through the last line of 
the listing. The computer 
display is used to prompt you 
as to which line to scan and 
give you warning messages 
should you happen to get out 
of step. 

When you run BAREAD, it 
asks you to scan the first line 


of the bar code listing. This 
line contains the name of the 
program as well as the begin¬ 
ning of the program itself. The 
computer will sound a high- 
pitched beep whenever it’s 
ready for you to scan a line. 
After a line has been success¬ 
fully read, you’ll hear a lower 
beep. A “blip-bloop” sound 
prompts you to turn your 
attention to the screen for a 
message. You’ll hearthis when 
you accidentally scan a line 
out of sequence. 


BAREAD 2.1 

1(2(2(2 ' *** Initialize *** 

1(21(2 ON ERROR GOTO 1(24(2 
1(22(2 CLEAR 1(2(2(2: MAXFILES=2 
1(23(2 GOTO 1(25(2 

1(24(2 IF ERR=5 THEN RESUME NEXT 
1(25(2 ON ERROR GOTO (2 
1(26(2 RUNM "B30F9" 

1(27(2 OPEN "WAND:" FOR INPUT AS #1 
1(28(2 UC%—1 

1(29(2 PC$="(2123456789ABCDEFGHIJKLMNOPQRST 
UVWXYZabcdefghijklmnopqrstuvwxyz- $+" 
11(2(2 DIM RW$ (36) 

111(2 ER$(l)="You must scan line 1 first! 

II 

112(2 ER$(2) = "You’ve SKIPPED a line!" 

113(2 ER$(3) = "You've ALREADY SCANNED this 
line!" 

114(2 ER$(4)="Code not PCM2/39 format!" 
115(2 ER$(5)="Command not applicable here 
! " 

116(2 ER$(6)="You cannot skip this line!" 


117(2 ER$(7)="Selected resume file not in 
computer!" 

118(2 ’ *** Read Reserved Words List *** 
119(2 DATA BEEP, CLEAR, CLOSE, DATA ,DEFDBL,D 
EFINT,DEFNG,DEFSTR,ELSE,GOSUB,GOTO 
12(2(2 DATA INKEY$ , INPUT, INSTR( ,LCOPY,LEFT 
$(,LINE(,LOADM,LPRINT.USING,MAXFILES 
121(2 DATA MID$( .NEXT, PEEK, POKE, POWER, PRE 
SET(,PRINT,READ,RESTORE,RETURN,RIGHT$( 
122(2 DATA SOUND, SPACE$ (, STRING$ (, THEN 
123(2 FOR I%=1 TO 36:READ RW$(I%):NEXT 1% 
124(2 ' *** Procedure Begins Here *** 

125(2 CLS : PRINT@44 , "PCM Bar Code Program 
Reader v2.1" 

126(2 LINE (2(2,4)-(219,18) , 1, B: LINE (22, 6) - 
(217,16),1,B 
127(2 NN%=1 

128(2 GOSUB 166(2: IF ER%>(2 THEN GOSUB 162(2 
:GOTO 128(2 

129(2 IF LL%=(2 AND INSTR( "YN" , IL$)>(2 THEN 
ER%=5: GOSUB 162(2: GOTO 128(2 
13(2(2 IF LL%=(2 THEN ON INSTR( "ALSR" , IL$) 
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After reading the first line, 
you continue scanning with 
the second line. Remember to 
wait for a high beep before 
scanning and then listen for 
a low beep to indicate a suc¬ 
cessful read. 

Once the last line of the 
listing has been scanned, 
BAREAD will return control to 
the Tandy 100/200 menu 
screen. Note that the program 
you just scanned is now in the 
directory with a .DOextension. 

The final step is to convert 


the .do text file to a normal 
basic program. This is done 
quite simply by going to BASIC 
and loading the file with a 
command such as L0AD"TEST 
• DO" (if the program name 
were test). The program will 
load into basic and will be 
ready to run. To save the 
program in basic’s com¬ 
pressed format (.ba exten¬ 
sion), you’d type SAVE "TEST" 
(if the program were named 
test). You may then kill the 
.DO file with KILL "TEST.DO". 










mm 






GOTO 1820,1890,1980,2050 

1310 IF LL%=1295 THEN 1350 

1320 IF LL%ONN% AND NN%=1 THEN ER%=1:G0 

SUB 1620:GOTO 1280 

1330 IF LL%<NN% THEN ER%=3:GOSUB 1620*GO 
TO 1280 

1340 IF LL%>NN% AND NN%>1 THEN ER%=2:G0S 

UB 1620:GOTO 1280 

1350 IL$=RIGHT$(IL$,19) 

1360 IF LL%=1 AND NN%>0 THEN GOSUB 1780 
1370 CL$=CL$+IL$ 

1380 FOR I%=1 TO LEN(CL$) 

1390 CH$=MID$(CL$,1%,1) 

1400 IF CH$="%" THEN GOSUB 1510:IF NL 

% THEN 1470 ELSE GOTO 1440 

1410 IF CH$="/" THEN GOSUB 1550:IF NL 

% THEN 1470 ELSE GOTO 1440 

1420 IF CH$="." THEN UC%=N0T(UC%)•GOT 

0 1450 

1430 IF CH$=>"A" AND CH$<="Z" AND NOT 
(UC%) THEN CH$=CHR$(ASC(CH$)+3 2) 

1440 XX$=XX$+CH$:IF RIGHT$(XX$,1)=CHR 


$(13) THEN PRINT#2,XX$;:XX$="";UC%=-1 
1450 NEXT 1% 

1460 CL$="" 

1470 PRINT@200,SPACE$(80); 

1480 IF LL%Ol295 THEN NN%=LL%+1 • GOTO 12 
80 

1490 1 *** Done *v«v 

1500 CLOSE:CALL 61807!:CLEAR 500 HIMEM'M 
ENU 

1510 1 *** Decode Reserved Word *** 

1520 NL%=0:IF I%>LEN(CL$)-1 THEN NL%—1: 
CL$="%":G0T0 1540 

1530 I%-I%+1:CH$=RW$(INSTR(PC$,MID$(CL$, 

I%,1))) 

1540 RETURN 

1550 1 *** Decode Hex and Control Charac 
ters *** 

1560 NL%=0:IF I%>LEN(CL$)-1 THEN NL%=-1: 
CL$= , 7":GOTO 1610 

1570 I%=I%+1:IF INSTR("/%.",MID$(CL$,1%, 
1))>0 THEN CH$=MID$(CL$,1%,1):GOTO 1610 
1580 IF I%>LEN(CL$)-1 THEN NL%=-1:CL$=RI 
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GHT$ (CL$ , 2) : GOTO 161(3 

159p HX$=MID$(CL$,1%,2):CH$=CHR$((INSTR( 
"0123456789ABCDEF",LEFT$(HX$,1))-1)*16+I 
NSTR("(3123456789ABCDEF" , RIGHT $ (HX$ , 1)) -1 

) 

16(3(3 I%-I%+1 
161(3 RETURN 

162(3 1 *** Error Codes *** 

1630 SOUND 5(3(3(3,1(3: SOUND 8J3J3S3,1(3: SOUND 5 

(3(3(3,10 

164(3 PRINT@220- . 5*LEN(ER$(ER%) ) ,ER$(ER%) 
165(3 RETURN 

1660 ' *** Get Code Line *** 

1670 PRINT@173,"";:PRINT USING "Scan lin 
0 ###”* NN% 

1680 IF NN%—1 THEN PRINT@173,"Scan any 
line":GOTO 1700 
1690 SOUND 500,5 
1700 INPUT#1,IL$:ER%=0 
1710 FOR I%=1 TO LEN(IL$) 

1720 IF MID$(IL$,I%,1)-"! 

1% 1)="." 

1730 NEXT 1% 

1740 IF LEN(IL$)<>1 AND LEN(IL$)<>21 THE 
N ER%=4:RETURN 

1750 IF LEN(IL$)=1 THEN LL%=0:RETURN 
1760 LL$=LEFT$(IL$,2):LL%=(INSTR("012345 
6789ABCDEFGHIJKLMNOPQRSTUVWXYZ",LEFT$(LL 
$ 1))-1)*36+INSTR("0123456789ABCDEFGHIJK 
LMNOPQRSTUVWXYZ",RIGHT$(LL$,1))-1 
1770 RETURN 

1780 1 *** Open Program File *** 

1790 PN$=LEFT$(IL$,6):IL$=RIGHT$(IL$,LEN 
(IL$)-6) 

180(3 OPEN PN$ FOR OUTPUT AS #2 

1810 RETURN 

1820 ' *** Abort *** 

1830 BEEP:BEEP:BEEP 

1840 PRINT@209,"ABORT! Are you sure?"; 
1850 INPUT#1,AN$ 


THEN MID$(IL$ 


1860 IF INSTR("YN",AN$)=0 THEN BEEP:PRIN 
T@251,"Scan 'YES' or 'NO'":GOTO 1850 
1870 PRINT@200,SPACES(80); 

1880 IF AN$="Y" THEN CLOSE:KILL PN$+".DO 
":GOTO 1490 ELSE GOTO 1280 
1890 1 *** Skip Line *** 

1900 IF NN%=1 THEN ER%=6:GOSUB 1620:GOTO 
1280 

1910 BEEP:BEEP:BEEP 

1920 PRINT@210,"SKIP! Are you sure?" 
1930 INPUT#1,AN$ 

1940 IF INSTRC'YN",AN$)=0 THEN BEEP:PRIN 
T@251,"Scan 'YES' or 'NO'":GOTO 1930 
1950 PRINT0200,SPACE$(80); 

1960 IF AN$="Y" THEN NN%=NN%+1 

1970 GOTO 1280 

1980 ' *** Stop & Save *** 

1990 BEEP:BEEP:BEEP 

2000 PRINT@207,"STOP & SAVE! Are you sur 
e?" ; 

2010 INPUT#1,AN$ 

2020 IF INSTRC'YN",AN$)=0 THEN BEEP:PRIN 
T@251, "Scan 'YES' or 'NO"':GOTO 2010 
2030 PRINT@200,SPACES(80); 

2040 IF AN$="Y" THEN 1490 ELSE GOTO 1280 
2050 ' *** Resume *** 

2060 IF NN%Ol THEN ER%=5:GOSUB 1620: GOT 
0 1280 

2070 PRINT@254,"Resume Mode"; 

2080 NN%=l:GOSUB 1660 

2090 IF LL%=0 THEN ER%=5 ELSE IF LL%Ol 
THEN ER%=1 

2100 IF ER%>0 THEN GOSUB 1620:GOTO 2060 
2110 PN$=MID$(IL$,3,6) 

2120 ON ERROR GOTO 2140 

2130 OPEN PN$ FOR INPUT AS #2:GOTO 2170 

2140 RESUME 2150 

2150 CLOSE #2 

2160 ER%=7:GOSUB 1620:GOTO 1270 

2170 CLOSE #2:OPEN PN$ FOR APPEND AS #2 

2180 NN%=-1:GOTO 1280 
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TANDY 1000 

Howard Medical Computers 


*p b j Multifunction Board 


• 512 K RAM included 

• Serial Port for modem or printer 

• Battery powered real time clock/calendar 

• RAM disk program included 

• Acts like hard drive only faster 


$27€i 

List $359.95 
MFB-1000 
with 256K $269 
with 128K $249 


p b j X Ram Card with 256K $249 

• Add additional memory to your 1000 up to 2 megabytes List $299.95 
. Breaks the 640K barrier Add $49 for each 

Bank of 256K 


Includes diagnostic package & RAM disk program 


enith Green Monitor 



12" Zenith 123A Green Screen is easy on the eyes 
High resolution: 640 dots x 200 dots 
15 MHz band width • non glare screen 
Composite video monochrome 
30 day warranty at over 1200 Zenith repair locations 


$67 s ® 

Was $149 
$7 shipping 


Epson LX-80 Printer 



• Near letter quality or 100 cps draft mode 

• Friction feed standard ($30 tractor option) 

• Bidirectional with 1K graphics buffer 


& 
& 


$240 


$7 shipping 


Payrol/BAS™ 


$149 

Complete 
$7 shipping 


No tables to enter. Automatically calculates Federal, 

FICA, State and up to 5 individual deductions 
Handles 500 employees with hard drive or (40) employees 
with one floppy drive plan weekly 
User friendly, easy to install Send for FREE Reports Guide 

Prints checks, 941 summary and W-2's or $5 for Demo Disc 


1690 Elston, Chicago, IL 60622 (800) 443-1444 orders (312) 278-1440 qu es«o£ 

‘Howard Medical offers a 30-day return guarantee on all hardware we sell. Return equipment to us within 30 days for 
refund if you are unsatisfied for any reason. 






























Top-of-the-line: Open Access' 
NOW ONLY $395* 


OPEN ACCESS 
Comparison Chart 
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395* 













Open Access has sold almost 50,000 copies overseas, and many more in 
the U.S. thanks to Radio Shack® With one of the most powerful 
Relational Databases around, and just about all the additional features 
you could want, it’s no wonder. Just the Goal Seeking feature 
in the Spreadsheet alone should make Open Access 
your customer’s #1 choice. 

(We’re even written in 11 languages with exact file transfer.) 


1 

1 1 

.riFfil 

.- J 


Relational Database 


mi mm mm m 




Spreadsheet 




. ■". 

Communications 


r 




Word Processing 


Graphics 




Time Management 


Available through your exclusive Express Order Software System 

90-0114 Tandy2000 • 90-0247 Tandyl200 • 90-0437 TandylOOO 

The product’s exceptional. The price extraordinary. Can you really afford to compromise any longer? 


SPI 


*U.S. version only 


SOFTWARE PRODUCTS INTERNATIONAL 


10240 Sorrento Valley Road ■ San Diego, CA 92121 


Open Access and Ml are registered trademarks of Software Products International, Inc: Lotus 1-2-3 and Symphony are registered trademarks of Lotus Development Corp • 
Framework is a trademark of Ashton-Tate; Smart System is a registered trademark of Innovative Software; Tandy 1000/1200/2000 are trademarks of Radio Shack, a division of Tandy Corp. 


































































































All on one ROM. Truly the finest four programs 
available for the Model 100 — guaranteed. 
Try it for 30 days. If you aren’t blown away by the 
excellence return it for a full refund. 


passed our highest expectations for 
quality and clarity. ” 

Lucid Spreadsheet: This is the one 
PICO magazine says “blows Multiplan 
right out of the socket” and Infoworld 
performance rated as “excellent” and 
said “makes the Model 100 compute.” 
Gives you features you cannot get with 
Lotus 123. Lets you build spreadsheets 
in your Model 100 that would consume 
140-150K on a desktop. Program gener¬ 
ating capability with no programming 
knowledge required. Variable column 
widths. Includes find and sort with func¬ 
tion key control. It’s fast, recalculates 
like lightning. No feature has been taken 
from the original, only new ones added. 

Database: This is a relational data 
base like no other. You can do every¬ 
thing from mailing lists to invoices. No 
complicated pseudo-coding, you create 
input screens as simply as typing into 
TEXT. You are not limited by size; you 
can have as large an input screen as you 
wish. Prints out reports or forms, get¬ 
ting information from as many files as 


you like. Complete math between fields. 
Total interface with Lucid worksheets. 

Outliner: Does everything that Think- 
tank does on a PC but a whole lot better. 
Includes a Sort for your headlines. Lets 
you have headlines of up to 240 charac¬ 
ters. Has cloning, hoisting and sideways 
scroll up to 250 characters. Like Lucid, 
this one sets a new standard for outlin- 
ers. This is the way to plan and organize 
your projects. 

Present Lucid and Write ROM 
owners can upgrade for $150. If you 
have both it’s $125. 

As usual PCSG sells the Super ROM 
on a thirty day guarantee. If for any 
reason you are not satisfied, simply 
return it for a full refund. 

We are excited about this product. 
Super ROM gives the Model 100 the 
true power of a desktop. No other multi¬ 
program ROM has software that com¬ 
pares. But don’t take our word for it. We 
invite you to make that comparison 
yourself. Priced at $199.95 on Snap-In 
ROM. 

Got stuck with somebody elsc’s multi-ROM? 

We’ll upgrade it for.$150. 


The four best programs for the Model 
100 all on one ROM. 32K of power with¬ 
out using any RAM for program stor¬ 
age. This is the PCSG Snap-In ROM 
that just presses easily into the little 
ROM socket in the compartment on the 
back. You access the four right from the 
main menu like built-ins. 

Write ROM — the definitive word 
processor for the Model 100. Function 
key formatting or dot commands. 
Search and replace. Library feature — 
inserts words, phrases or whole docu¬ 
ments into text from just a code. MAP 
lets you see a picture of your document. 
In all there are 60 features and func¬ 
tions. No one can claim faster operation. 
FORM lets you create interactive forms 
with on-screen prompts that you can 
answer from the keyboard. Nothing else 
for the Model 100 compares with the 
features of Write ROM. Exactly the 
same as the Write ROM sold as a single 
program. Infoworld says it “makes the 
Model 100 a viable writing unit... sur- 


11035 Harry Hines Blvd., #206, Dallas, TX 75229 

MC, Visa, American Express, Check, or C.O.D. 


©PCSG 
























